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SAVE BIG 

ON THE TI-99/4A 


Great savings on all TI-99/4A 
Products and Accessories 



"We will meet any price" 

In this Issue, If our competitor has goods on hand. 


CONSOLE 

TI-99/4A Home Computer.*379.95 

PERIPHERALS 

Solid State Speech Synthesizer. 114.95 

Telephone Coupler (Modem). (T 

RS-232 Accessories Interface . 

Disk Drive Controller (One Disk Manager 

packed with Disk Controller) . 229.95— 

Disk Memory Drive . 369.95 — 

Solid State Printer. 299.95 

Memory Expansion (32K RAM). 

R. F. Modulator (TV Adapter).7733115 — 

10" Color Monitor. 329.95 

OPTIONAL ACCESSORIES 

Wired Remote Controllers (Pair).28.95"'''' 

Dual Cassette Cable. 12 . 95 "" 

Monitor Cable.17.95-" 

Audio Adapter (Headphone Jack) ... ,17.95 

Thermal Paper (2 pack). 9.95 

Blank Overlays (4 pack).7.95 

DOCUMENTATION 

Beginning BASIC Manual.9.95-" 

User’s Reference Guide.9.95 

APPLICATION PROGRAMS 
Home Management/Personal Finance 

Command Module* 

Home Financial- Decisions.26.95-"- 

Household Budget Management.34.95-" 

Securities Analysis .49.95 

Personal Record Keeping.39.95 

Tax/Investment Record Keeping.59.95 

Personal Real Estate.59.95 

Diskette 

Mailing List . 54.95 

Personal Financial Aids.18.95 

Checkbook Manager. 18.95 

Business Aids Library-Finance Mgmt .36.95 

Inventory Management.59.95 

Cassette 

Personal FTnanclal Aids.14.95 


Education/Peraonal Enrichment 

Command Modules 

Early Learning Fun .27.95 

Beginning Grammar.27.95— 

Number Magic .....18.95*" 

Video Graphs .18.95— 

Video Chess.54.95 

Physical Fitness.27.95— 

Early Reading. 49,95 

Music Maker.(SOS} 

Weight Cbntrol and Nutrition.54.95 

Addition and Subtraction I.36.95 

Addition and Subtraction II .36.95 

Multiplication I . 36.95 

TI-LOGO.call 

Dl*k*tt* 

Teach Yourself BASIC.29.95 

Music Skills Trainer.27.9J 

Computer Music Box . 

Market Simulation.1&K5 

Teach Yourself Extended BASIC.21.95 

Music Maker Demonstration.14.95 

Basketball Statistics .22.95 

Bridge Bidding I.27.95 

Ceeeette 

Teach Yourself BASIC.27.95 

Music Skills Trainer.22.95 

Computer Music Box .14.95 

Market Simulation.14.95 

Teach Yourself Extended BASIC.18.95 

Bridge Bidding I.22.95 

Entertainment 

Command Modulo* 

Football.24.95- 

Video Games I .27.95 

Hunt the Wumpus .21.95 

Indoor Soccer.’ ’ ’. 27*95 

Mind Challengers. 22.95 

A-Maze-Ing . .....22.95 

The Attack t .34.95 

Blasto t.22.95 


Blackjack and Poker..22.95 

Hustle t. 22.95 

Zero Zap t.18.95 

Hangman .18.95 

Connect Four f.18.95 

Yahtzee t.22.95 

OI*k*t 1 * 

Tl-Trek (w/speech).x4z93) 

Mystery Melody.n 4.9t> 

Oldies But Goodies-Game I.18.95 

Oldies But Goodies-Game II .22.95 

OTHER APPLICATION PROGRAMS 

Command Modulca 

Diagnostic .27,95' 

Demonstration .62.95'’ 

Speech Editor.36.95- 

Statistics . 39.95 

Terminal Emulator I . 39.95 

Extended BASIC .76. 

Terminal Emulator II. 

Diaktttt 

Programming Aids I .... _(,...14.95 

Programming Aids II.... : ...22.95 

Math Routine Library..'27.95 

Electrical Engineering Library. 

Programming Aids III. 

Graphing Package.. 18.95 

Structural Engineering Library .27.95 

CttMttt 

Programming Aids I . 9.95 

Math Routine Library.22.95 

Electrical Engineering Library.22.95 

Graphing Package.. .14.95 

Structural Engineering Library .22.95 

+ Attack. Blasto. Hustle. Zero Zap. Conqnect Four 
and Yahtzee are trademarks Of Milton Bradley. 

•32K Expansion requires use of Extended BASIC 
or TI-LOGO 

•Speech Synthesizer requires use of Speech Editor 
or Terminal Emulator #2 





INCORPORATED 

14932 GARFIELD AVENUE 
PARAMOUNT, CA 90723 




Order Toll-Free 

800 - 421-5188 

In California call (213) 633-3262 


Payment by check: 

For faster delivery use cashier's check or 
money order (personal checks take 3 
weeks to clear). Add shipping charges: 
1% of your order (*3.00 minimum). East 
of Mississippi River add *1.50. California 
residents add 6% sales tax. Subject to 
availability. USA prices only. 

Information line (213) 633-3262 





































































































































Texas Instruments Personal Computer 



Fifty Years 
Innovation 





It has a constantly growing 
library of quality software. 

And there’s still more. 

Much, much more . . . our growing lib¬ 
rary of software programs 

We know how important quality prog¬ 
rams are to your experience with your com¬ 
puter. That’s why, at Texas Instruments, 
they use professional talents — writers, ar¬ 
tists, musicians, teachers, scientists, pro¬ 
grammers, consultants — and nothing less 
developing our programs. The people of the 


Texas Instruments Learning Center are 
even now working with experts in education 
like Scott, Foresman & Co.,experts in enter¬ 
tainment like Milton Bradley and many 
others to make our software library richer 
every day and of the highest possible quality. 

It’s a gift that can grow and 
grow. 

We carry the complete Texas Instru¬ 
ments personal computer line, hardware 
and software. Write for our very 
competitive price list including TEXNET SM 

SM TEXNET is a servicemark of Texas 
Instruments Incorporated. 


Mini Diskettes 


Scotch 


diskettes 



Rely on Scotch® mini disk¬ 
ettes to keep your valuable 
data safe. Dependable 
Scotch diskettes are tested 
and- guaranteed error-free. 
And the low abrasivity saves 
your read/write heads. 
They’re compatible with 
most 514 inch diskette 
drives and are available in 
storage boxes, convenient 
library cases, and soft 
cartons. 



PRINTER DIP-81 


Look at all the Features included as STANDARD for the price. 
Interface: RS232 

Print Speed: 100 characters per second. 

Thruput: 60 lines per minute (80 characters per line bidirectional). 
Character Formats: 7X7 matrix and 14X7 matrix expanded. 
Character Set: Full upper/lower case 96 characters ASC II. 
Media: Cut Sheet plain paper, Roll paper and Fan Fold single or 
multiple copy. Max. Width 8.5 in. 

Feed: Friction Feed. 

Loading: Either Rear or Bottom. 

Operator Controls: Power on/off with indicator, Self Test, Top of 
Form, Line Feed. 

Prices shown in this ad are our offer to end users. Dealer inquiries 
invited on all our products. CHECK our very competitive 
Dealer/OEM prices. Dealers must be multiple unit purchasers who 
are in business to resell. Our Dealer net prices are generally lower 
than dealers purchasing direct from the manufacturer receive. 




Computer 


7 W. Airline Hwy. 

Corner of Hwys. 57 & 63 
Waterloo, Iowa 50701 
Phone: 319/ 


236-3861 


Quanity 1 
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By Gary M. Kaplan 

Editor & Publisher 


A personal computer can indeed be 
a many splendid thing. It can be a 
patient teacher, a faithful compan¬ 
ion, a worthy opponent, as well as a 
partner in analysis and decision making. 
But it is the computer's particular suita¬ 
bility for processing data and managing 
information that has suggested this is¬ 
sue's theme and cover wt-Controlling 
the Paperwork Flood: Microcomputer 
Management of Business <£ Persona! 
Information. 

When starting a new business, cus¬ 
tomized printing is often a considerable 
and unavoidable expense. This usually 
consists of a multitude of business forms 
including invoices, statements, mailing 
labels, purchase orders, shipping docu¬ 
ments, and price lists. In our lead arti¬ 
cle, Interactive Forms Generator, Dave 
Brader will show you how to produce this 
customized paper arsenal on demand, at 
a cost of pennies-with all forms neatly 
filled out and ready for the mail. 

I’ve selected another of Dave’s arti¬ 
cles to inaugurate a new feature column 
Command Module Applications (for 
which we are presently soliciting manu¬ 
scripts). This time, in keeping with our 
theme, we’ll examine some Personal 
Record Keeping routines for managing a 
trailer park. I think you’ll find the use 
of the module’s math transformations 
especially interesting. 

No information management issue 
would be complete, however, without 
some software reviews, so we’ll be 
Getting Down to Business with George 
Struble’s" evaluations of two presently 
available accounting and budgeting 
packages. You’ll pick up some useful 
pointers here for evaluating any software 
product. 

To round out our reviews, John 
Clulow examines three books of applica¬ 
tions software. Many of the programs in 
these books are useful for maintaining 
business and personal records, and be¬ 
come ready-to-RUN in TI BASIC (if not 
so originally) with John’s conversion tips 
that are easy to implement. 
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Managing information does necessi¬ 
tate some means of mass storage. Many 
of you have undoubtedly considered 
purchasing a disk controller and one or 
more disk drives, but have not been able 
to do so because of cost. If that’s your 
situation, and you are willing to handle 
a little do-it-yourselfing, Dick Bies has 
good news. See his first-hand account of 
adding Frugal Floppies. And if the 
peripherals or additional software you 
buy is for a business purpose, don’t 
overlook page 56’s timely and informa¬ 
tive discussion of How New Tax Laws 
Affect Computer Owners. 

As soon as you have a floppy disk 
system, a whole new world of computer 
performance is yours. Good disk soft¬ 
ware, however, requires good program¬ 
mers . . . and good programmers need 
(and get inspired by) good tools. There¬ 
fore, whenever new, powerful develop¬ 
ment tools-like the two you’ll read 
about in this issuc-appear, we can ex¬ 
pect a host of good software to soon 
follow: In Super Language, Patricia 
Swift will introduce the soon-to-be- 
forthcoming Editor/Assembler for the 
TI-99/4(A), and John Clulow will do 
the honors to Programming Aids III in 
How to Write a BASIC Program that 
Writes BASIC Programs (the initial arti¬ 
cle in our new column Advanced Pro¬ 
gramming Techniques). 

Those of you with the University 
Board, of course, already have a taste of 
TMS9900 assembly language. But now 
you may want to get involved in applica¬ 
tions requiring more memory and cus¬ 
tomized EPROMs. If so, check out John 
Caulfield’s overview of a new add-on 
board in Memory & I/O Expansion, 
plus an EPROM Programmer for the 
TM 990/189 University Board. 

Serious programmers never seem to 
have enough languages in their tool kits. 
So if you’re thinking of adding more 
languages to your TI-99/4(A), be sure to 
scan Tom Bcrkcy’s impressions of The 
Third-Party Pascal Development System. 

But lest we forget the rest of you— 
novice programmers and new computer 


users amongst you-who choose to stay 
with the console’s built-in TI BASIC, 
this issue’s menu also contains some 
useful fare: In Software Conversions: 
Applesoft to TI BASIC, Sam Pincus 
will show you a quick and easy way to 
add plenty of compatible programs to 
your own software library. Incidentally, 
Sam’s by-line also appears this time in 
Starting From Square One- our new col¬ 
umn for beginners where you’ll learn 
about Murphy’s Law and the Home 
Computer as well as pick up some appli¬ 
cations ideas from our prolific (and 
mysterious-see page 84) Regena in 
Square One’s second article, Now What? 

As for all you games aficionados, have 
no fear . . . we’ve not forgotten you 
either. Kelley’s Korner is back again— 
this time with two Games of Agility and 
Derring-Do. Be sure to read the Micro 
Editorial about these two games that ap¬ 
pears in the Letters to the Editor pages. 

No issue of 99’er would be complete 
without OnLoCAItion- our "magazine 
within a magazine.’’ This time around, 
we take you on location to Glenview, 
Illinois for a look at a leading educa¬ 
tional software developer, and a discus¬ 
sion of Computer-Assisted Instruction: 
The State of the Art. 

Then it’s off to LOGOIand, where 
Hank Gorman will show you how to 
combine recursion and list handling op¬ 
erations and create The LOGO Poet— 
once more proving that programming is 
“kid’s play.” 

As Part 3 in our chess series unfolds, 
you’ll find Jerry Wolfe on the offense as 
he backs the TI Command Module into 
a Computer Chess Corner, and proceeds 
to beat Video Chess at its own game. 

And finally, rounding out this issue, 
we have two programs that provide prac¬ 
tice drills for all you aspiring typists and 
musicians—Regena’s colorful Typing for 
Accuracy and Let’s Learn Notes. 


Until next issue-Have fun reading, 
learning, and RUNing. 




























Our MX-80 was a pretty tough act to follow. I mean, 
how do you top the best-selling printer in the world? 

Frankly, it wasn't easy. But the results of all our 
sleepless nights will knock your socks off. 

The MX-100 is a printer that must be seen to be be¬ 
lieved. For starters, we built in unmatched correspon¬ 
dence quality printing, and an ultra-high resolution bit 
image graphics capability. Then we added the ability to 
print up to 233 columns of information on 15" wide 
paper to give you the most incredible spread sheets 
you're ever likely to see. Finally, we topped it all off 
with both a satin-smooth friction feed platen and fully 
adjustable, removable tractors. And the list of standard 
features goes on and on and on. 

Needless to say, the specs on this machine — and 
especially at under $1000 — are practically unbelievable. 
But there's something about the MX-100 that goes far 



beyond just the specs; something about the way it all 
comes together, the attention to detail, the fit, the feel. 
Mere words fail us. But when you see an MX-100, you'll 
know what we mean. 

All in all, the MX-100 is the most remarkable printer 
we've ever built. Which creates rather a large prob¬ 
lem for those of us at 
Epson. 

How are we going to 
top this? 


Your next printer. 

EPSON 

EPSON AMERICA, INC. 


3415 Kashiwa Street ‘Torrance, California 90505 • (213) 539-9140 

See the whole incredible Epson MX Series of printers at your Authorized Epson Dealer. 









































Interactive 




y David G. 


rader 


W hen I started in business this past year, I decided to 
utilize my T1-99/4 as much as possible. One of the 
things I wanted to do with the computer was gen¬ 
erate customized business forms such as purchase orders, 
price lists, invoices, and sales orders. 

Right away you may be thinking: “He could buy all those 
forms ready made ... "Yes, but that is not challenging or as 
much fun. Plus, to print up custom forms (ones that have 
your company name and address) is not cheap. Around here 
a minimum order of triplicate invoices costs about $40 for 
500. (And I probably wouldn’t use all 500 before wanting to 
modify the form anyway . . .). Furthermore, if you multiply 
that $40 figure by the 12 different forms (including price list 
pages) I presently have, you come up with a starting cost of 
$480! That is almost enough money to buy an Epson MX-80 
printer. .. 

Well, you guessed it. I bought one (plus the serial interface, 
the RS232 cable, and the Tl RS232 interface). The whole 
setup did cost more than the original estimate, but the added 
cost can be written off as “hobby money’’ for now. Then, 
with the right software I could sit down at theTI-99/4 key¬ 
board, activate a program that would ask me questions to fill 
in the blanks of a form that was in memory, and finally print 
out as many copies as I wanted on the MX-80. 

I wrote such a program that I call the INTERACTIVE 
FORMS GENERATOR. It is written in a general fashion to 
work with any correctly formatted data file. I then made up 
a FORM DATA FILE for each of my forms. A FORM DATA 
FILE is just a bunch of ASCII text lines stored in a “string 
array.” Each text line may be written as a DATA LINE to be 
printed on the MX-80 or as a COMMAND LINE to direct the 
“INTERACTIVE FORMS GENERATOR” program. 

How does it work? 

The INTERACTIVE FORMS GENERATOR (IFG) pro¬ 
gram asks questions of the operator via the T1-99/4 screen. 
IFG accepts inputs from the operator via the keyboard and 
interprets instructions from the FORM DATA FILE’S 
COMMAND LINES. In other words, the IFG program works 
with you to load your FORM DATA FILE, fill out the form, 
and finally print it out on the MX-80. 

Let’s say I am generating a Sales Order Acknowledgement 
form to send to a customer. First, I load the IFG program 
from diskette (or cassette). Second, I type RUN and hit enter. 
Third, the IFG program asks: 

MAKF. A CHOICE - 

1. LOAD NEW FORM FILE 

2. FILL OUT SAME FORM 

3. PRINT COPIES 

4. TERMINATE 


I enter “1” and follow the instructions from the IFG pro¬ 
gram to load the Sales Order Acknowledgement FORM 
DATA FILE. Fourth, the program asks: 

MAKE A CHOICE — 

1. LOAD NEW FORM FILE 

2. FILL OUT SAME FORM 

3. PRINT COPIES 

4. TERMINATE 

? 

I enter “2”. Fifth, IFG will look through the FORM DATA 
FILE for the COMMAND LINES. Interpreting the lines, IFG 
will prompt me via the screen for the information needed to 
fill out the form’s blanks. Also, interpreting the COMMAND 
LINES, IFG may perform simple math functions on fields of 
DATA LINES to calculate tax, totals, etc. After all the COM¬ 
MAND LINES have been used, IFG again asks: 

MAKE A CHOICE — 

1. LOAD NEW FORM FILE 

2. FILL OUT SAME FORM 

3. PRINT COPIES 

4. TERMINATE 

9 

This time I enter “3” and the IFG program asks: 

ENTER NUMBER OF COPIES 

TO PRINT— 

I enter some number and IFG sends only the DATA LINES 
of the FORM DATA FILE to the MX-80 which does the rest! 
See Figure 2 for a look at the completed form sample. 

Boy, isn’t that slick ... Just like the big guys (perhaps a 
little slower, but that’s OK until the business grows to the 
point that speed is important). By the way, for Christmas I 
can generate a very long "form” letter with a year’s worth of 
family news, then use IFG to fill out a separate salutation for 
each relative. So the whole family gets the latest without my 
getting writer’s cramp! I’ll bet that with your imagination 
and creativity you wi I come up with some neat applications 
for IFG too .. . 

OK, OK. You want to know how you can make one of 
these FORM DATA FILEs, don’t you? Well then, there are a 
couple ways: 

Building a FORM DATA FILE : Method 1 

If you have some kind of “editor” program that will build 
an “ASCII text string array” you are all set. All you have to 
do is make sure it will output the special ASCI I control codes 
used by the printer to do its tricks. Also, it must output the 
FORM DATA FILE to cassette or diskette in a compatible 
format. Listings 1 and 2 for subroutines CASSOUT and 
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□ $34 



3-y r (18 issues) 

□ $39 

LlS48 

a 




QTY 


TITLE 


PRICE 


No. C.O.D.Orders accepted. Add $1.50 
postage 8c handling for 1 book, $2.00 for 


POSTAGE 


TOTAL 

AMOUNT 


Attention Dealers: Please write or call for bulk subscription 
rates. Also ask about our inexpensive magazine directory list 
ings to publicize your retail locations. Call: (503)-485-8796 





QTY 


ITEM 


U.S. ONLY-FOR SHIPMENT 
OUTSIDE THE U.S. 

INQUIRE SEPARATELY 

TOTAL 

PRICE AMOUNT 


TI-SETTE ADAPTOR 


$4.50 

SHIPPING - 75<tea.‘ 


DIGITAL COMPUTER CASSETTES $10.95 
in LIBRARY ALBUM or 3 for $28.00 
SHIPPING - $2.00 for 1st ALBUM, 75<t ea.add.* 


MINI-FLEX DISKETTE FILE 


$24.95 


SHIPPING - S2.50 ea.* 


FRICTION-FEED KIT 
FOR EPSON MX-80 


$49.95 

SHIPPING - $2.00 ea.* 


DUST COVERS: See prices on page 95. 

Indicate choices below. 


2 books, or $2.50 for 3 or more books, TOTAL | 

SHIPPING—$2.00 for 1st COVER, 50Cea. add.* 

- 

Back issues of 99’er Magazine available - S3.95 ea. (postpaid) »*ue(s) desired------ - - - TOTAL 

r r (month/month, year) quantity 


Address shown is ^[Business Home 

name PLEASE 

99'er MAGAZINE SUBSCRIPTION 


TOTAL 99'er BOOKSTORE 


ADDRESS PRINT 

TOTAL 99'er-ware 


S 

O IT Y STATE ZIP 

TOTAL 

1 


□ Check enclosed MUST BE IN U.S. FUNDS DRAWN ON A U.S. BANK 







i i i i \ t r" t t 

j ] 

1 


* 




LJ! 1 1 1 1 1 L 

.. J 


Bill my: 

□ visa □ Master Charge N °i t a h- 

1 —' 1 — 1 3 MC Orly — List 4 digits above your name. 


Expiration Date. 


Signature. 







































































































DISKOUT illustrate what is needed. If you don’t have an 
“editor” program, see Method 2, below: 

Building a FORM DATA FILE : Method 2 

This is more difficult. Nevertheless, I have a real simple 
(but tedious) method of building the FORM DATA FILE 
that, you can use. ' 

STEP 1. 

Sit down with a pad of paper and a pencil. Now design 
each character-string line of the form. Use the “CHR$( )” 
function to put special codes in the string that can’t be direct¬ 
ly entered by a key on the 99/4 keyboard. The codes can be 
looked up in the MX-80 (or other printer’s) manual. The 
samples shown below are: CHR$(27) “escape code”, CHRi 
(13) “carriage return code”, CHR$(10) “line feed code”: 

CHR$(27)&“E”&“THE DOG RAN HOME QUICKLY”& 
CHR$( 10)&CHR$( 13) 

STEP 2. 

Now fire up your 99/4. Enter the following program lines: 


"FILEBUILD" PROGRAM 


100 REM 
110 REM 
120 REM 

130 OPTION BASE 1 
140 DIM A*(70) 

150 REM 

Then enter your character-string lines from paper into the 
string array via the TI-99/4 keyboard as follows: 

160 REM NOW FOR THE CHARACTER STRINGS IN THE ARRAY 
170 REM 

180 AS (1 )=CHRS<27)4"E”4."THE DOG RAN HOME QUICKLY" 
4CHR$<10>4CHR*<13) 

190 A*(2)*"AFTER DINNER THE DOG BURPED AND 
SCRATCHED HIS EAR,"4CHR*<10>4CHRS<13> 

200 A*<3>-= 

* * 

* * 

* * 

??? AS (? ? )=>"THAT 'S ALL FOLKS f "4CHRS(1 0 )4CHRS< 1 0 > 
4CHRS<13> 

1000 REM 

Now enter the following lines of program code: 


1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 


REM MAKE X EQUAL TO THE NUMBER OF LINES 

REM 

X-?? 

PRINT “WRITE FILE TO?" 

PRINT " 1 - CSi" 

PRINT " 2 - DSK" 

INPUT CHOICE 

IF (CHOICE!l)+(CHOICE)2)=-i THEN 1040 
ON CHOICE GOSUB 2000,3000 
PRINT "COMPLETE" 

PRINT. .“NOW SAVE ME ON TAPE OR DISK. 

END ' 

REH 

REM OUTPUT SUBROUTINES FOLLOW. 

REM 


IN AS 


V* 


Finally, enter the two subroutines CASSOUT and DISKOUT 
starting at lines 2000 and 3000. 

STEP 3. 

Type in RUN. You should end up with your own FORM 
DATA FILE on tape or diskette. This can now be used with 
the IFG program. 

STEP 4. 

Hold it! Don’t turn off the TI-99/4 yet! SAVE your 
“FILEBUILD” program on tape or diskette too. Chances are 
you will want to modify that form because of errors or 
change of design in the future. OK, now you can turn off the 
computer and hit the sack. (Notice that this kind of work is 
always done at midnight. . . ) 

To help clarify the above process, I generated a simple 
FILEBUILD” program (Listing 3). Note that text lines 
A$(1)-A$(13) are DATA LINES and text lines A$(14)— 
A$(19) are COMMAND LINES (more on these next). Listing 
4 shows the resultant FORM DATA FILE (as printed by 


'*i 


Texas Instruments TT994A 
Home Computer. 

Designed to be the first 
true home computer 
— for skilled 
computer users 
or for beginners. 

DISCOUNT PRICES 


TI-99/4A 
Tl Software 
Tl peripherals 


O 


EPSON Printers 


Write for Price List 


P O. Box 489 
Electric City, Washington 99123-0489 

509/633-2653 


TI-PWRITER 

for 

* Extended Basic * 

a complete WORD PROCESSOR 

for the 99/4 

ANY Printer — T.P., RS232C (or screen only). 

FULL upper & lower case (including 99/4) — even on screen 
print. 

Input typing SPEED — over 100 words per minute. 

ANY Line Length — 28 to 254 characters per print line. 

Complete text EDITING — by cursor control; including insert 
& delete lines, partial text print, printer halt or abort without 
text loss, page FWD & BKWD, and automatic line centering. 

ANY Input/Output storage of text — disc, cassette, cassette 
input/disc output, or vice versa. 

Holds 3000 characters (before storage) — 50,000 characters 
per disc or 60 minute cassette. 

COMPLETE Software Control of Printer (depending upon its 
capabilities) — for enhanced print, underlining, formatting, 
variable cpi. 

No Special Equipment —.monitor, c'orjsole, Extended Basic 
module, storage device (preferably), printer (or a friend 
with one). 

Comes with a 20 page instruction booklet. 

If you are not completely satisfied you may return it 

within 15 days for a full refund of purchase price. 

CASSETTE: $32.00 
DISCETTE: $35.00 

Send check to: Extended Software Company 

11987 Cedarcreek Drive 
' Cincinnati, Ohio 45240 

(513) 825-6645 


| 

I 

II 

iflfj 
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****** 

*******tt**********SAMPLE****t***************** 
* FILE BUILD FOR INTERACTIVE FORMS GENERATORS * 
t**************SHIPPXN& LABEL****************** 

************** 

99*ER VERSION 9.81.1 
BY DAVID G. BRADER 


lOO REM 
HO REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 

190 OPTION BASE 1 
200 DIM A*(70) 

210 REM 

220 REM NOW FDR THE CHARACTER STRINGS IN THE ARRAY 
230 REM 

240 AS < 1) =CHR* < 27 > Sr" E " SrCHRS (15) SrCHRS (14) Sc“KOMPUTAR WORKS"ScCHRS < 10) ScCHRS (13) 
250 AS (2)® H P.Q. BOX 483"ScCHRS (10) ScCHRS < 13) 

260 AS (3) 143 SUNSET DRIVE H ScCHRS (10) ScCHRS (13) 

270 AS <4> — "ELECTRIC CITY, WASH INGTON n ScCHRS ( 10) ScCHRS < 13 ) 

280 AS < 5) * " 99123" ScCHRS (10) ScCHRS (13) 

290 AS (6> =CHRS (10) ScCHRS < 10) ScCHRS (lO) ScCHRS (lO) ScCHRS (10) ScCHRS (13) 

300 AS (7) »CHRS (14) Sc" SHIP TO: "ScCHRS < 10) SrCHRS < 13) 

310 AS(8) “ " 

320 AS<9)-" 

330 AS(10) 

340 AS<11> 

350 AS (12)*'* 

360 AS (13) =CHRS (10) ScCHRS < 10) SrCHRS (10) ScCHRS (10) ScCHRS (10) ScCHRS (13) 

370 AS < 14) * " ! ! "ScCHRS (34) Sc"SHIPPING LABEL "ScCHRS (10) ScCHRS (10) ScCHRS (34) SCCHRS (13) 
380 AS (13) = 'V "ScCHRS (34) Sc "CUSTOMER NAME"ScCHRS (34) Sr" J 8: 35* 70: n 8cCHRS(13) 

390 AS (16)»"! ! "ScCHRS (34) Sr "STREET ADDRESS "ScCHRS (34) Sc" 1 9: 33l 70i "ScCHRS (13) 

400 AS (17) =" * ! "ScCHRS (34) Sc" Cl TY "ScCHRS (34) Sr" j 10; 35s 70s "SrCHRS(13) 

410 AS (18)-" ! ! "ScCHRS (34) Sc "STATE "ScCHRS (34) Sc" : lls35« 70s "ScCHRS (13) 

420 AS (19)*"! ! "ScCHRS <34) S<"ZIP CODE"ScCHRS (34) Sr" 1 12t 40i60* "ScCHRS ( 13) 

430 REM 

440 REM MAKE X EQUAL THE NUMBER OF LINES IN AS 
450 REM 
460 X*19 
470 PRINT 
480 PRINT 
490 PRINT 


Listing 3. 


pi 


11 


"ScCHRS (10) ScCHRS (13) 
"ScCHRS (10) SrCHRS < 13) 
" ScCHRS (10) ScCHRS (13) 
"ScCHRS (10) ScCHRS (13) 
"ScCHRS (10) ScCHRS (13) 


fl 


WRITE FILE TO?" 

" 1 - CS1" 

" 2 - DSK" 

500 INPUT CHOICE 

510,IF (CHOICE<1)+(CHOICE>2)——1 THEN 470 
520 ON CHOICE GOSUB 590,720 
530 PRINT "COMPLETE" 

540 PRINT "NOW SAVE ME ON TAPE OR DISK ." 

550 END 

560 REM f 

570 REM OUTPUT SUBROUTINES FOLLOW. 

580 REM 
590 REM 

600 REM SUBROUTINE "CASSOUT" 

610 REM 

620 OPEN #1:"CS1",INTERNAL,OUTPUT,FIXED 192 
630 REM 

640 REM "X" MUST EQUAL THE NUMBER OF TEXT LINES 

650 REM 

660 PRINT #1s X 

670 FOR 1=1 TO X+l STEP 2 

680 PRINT #1*AS<I),AS(Z+l) 

690 NEXT I 
700 CLOSE #1 
710 RETURN 
720 REM- ^ 

730 REM SUBROUTINE "DISKOUT" 

740 REM 

750 PRINT "ENTER WHICH DISK, 1-3?" 

760 INPUT DISK 

770 IF <DISK<1)-MDISK>3>=-1 THEN 750 
780 PRINT "ENTER FILENAME:" 

790 INPUT NAMES 

800 IF (LEN(NAMES)<1)-MLEN(NAMES)>10)—1 THEN 780 
810 OPEN #1: "DSK"ScSTRS(DISK) Sc" . "ScNAMES, OUTPUT, 
INTERNAL,VARIABLE 132 
820 REM 

830 45*EM "X" MUST EQUAL THE NUMBER OF TEXT LINES 

840 REM 
850 PRINT #1:X 
860 FOR 1=1 TO X 
870 PRINT #lsAS(I) 

880 NEXT I 
890 CLOSE #1 
900 RETURN 




Listing 1. 

2000 REM 

2010 REM SUBROUTINE "CABBOUT" 

2020 REM 



2030 OPEN ill"CS1",INTERNAL.OUTPUT.FIXED 192 

2040 REM 

2050 REM "X" MUST EQUAL THE NUMBER OF 

TEXT LINES 

2060 REM 

2070 PRINT #1«X 

2080 FOR X-l TO X+l STEP 2 

2090 PRINT «liA*(l>,AS(1+1) 

2100 NEXT Z 

2110 CLOSE #1 

2120 RETURN 


3000 REM 

Listing 2. 1 

3010 REM SUBROUTINE "DISKOUT" 

3020 REM 

I 

3030 PRINT "ENTER WHICH DISK, 1-3?" 

3040 INPUT DISK 

305Q IF (DISK<1) + <DI8K>3) — 1 THEN 3030 
3060 PRINT "ENTER FILENAME*" 

3070 INPUT NAME* 

3000 IF <LEN(NAME*) <1)-MLEN(NAME*) >10)- 

-1 THEN 3060 

3090 OPEN *11 "D8K"*STR*(DISK) Cc" • "l«NAME* 

.OUTPUT, 

INTERNAL,VARIABLE 132 


3100 REM 

3110 REM "X" MU8T EQUAL THE NUMBER 

3120 REM 

3130 PRINT #1*X 

OF TEXT LINES 

3140 FOR 1-1 TO X 

3130 PRINT #1lA*(I) 

3160 NEXT I 


. 3170 CL08E *1 

. .i 

3180 RETURN 

* 

1 ESCESISqaWUTAR KORKSIFCR 

2 P.0.101 WlFCR 

Listing 4. 

3 M3 SUNSET HlVELFCA % 

4 ELECTRIC CITY, UA5HIMBT0NLFCR 

5 99123LFCR 
* LFIFIFLFLFC* 


7 SO , SHIP TO:LfCR 

• 8 

tFCR 

9 

IFCR 

10 

LFCR 

II 

' LFCR 

12 

13 LFLFLFLFLFCR 

14 !* "SHIPPING LABELLFLF'CF 

13 !!"CUSTOHER HftflE • J8:35:7d:CR 

16 1r "STREET ADDRESS":9*35;70?CR 

17 ?? a CUT a :IOi3S:70:CR 

SB M "STA?€*;U:35:70rCR 

1? “"ZIP C0DE":12:40:60jCS 

LFCR 
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BETTER CONVENIENCE • EASE OF OPERATION • VERSATILITY 

Our (2’) Two Foot Cable is made to interconnect your 
Texas Instruments Tl 99/4 Computer with almost any 
combination of Printer, RS 232, Tape, or Controller. 

ORDER FORM 

SHIP THE FOLLOWING: 

- Heavy Duty 2' Cable At $44.95 ea. 

- Heavy Duty 3' Cable At $54.95 ea. 

□ Check No_Amount _ 

LI Money Order_ Amount_ 

Price F.O.B. Pittsburgh, PA. 

PA. Deliveries add 6% Safes Tax 
Allow 3-4 weeks delivery 

SHIPTO: 

NAME_ 

ADDRESS_ 

CITY_ STATE _ZIP_ 


SEND ORDER WITH PAYMENT TO: 

RCL COMPUTERS 

411 Allegheny River Blvd. 
Oakmont, PA. 1 51 39 

(412) 828-4301 


COMPUTERS 



































P.O.BOX 403 

143 SUNSET DRIVE 

ELECTRIC CITY, WASHINGTON 


Figure 1. 


/• 


HI 


MR. CHIP BUSES 
9900 SEAMOSS AVE. 
ELECTRIC CITY 
WASHINGTON 
99123 


APT. # 102 


my “editor” program). Figure 1 shows the results of running 
IFG using this FORM DATA FILE. 

Power to the IFG ! 

How do we get the FORM DATA FILE to tell the IFG 
what to do? By making up COMMAND LINES. What makes 
a COMMAND LINE special? It must start with these two 
characters ! ! . WHat can a COMMAND LINE tell IFG to do? 
It can tel) it to output a message to the TI-99/4 display. How? 
Here -is a sample: 

! ! “THIS MESSAGE WILL BE WRITTEN ON THE 99/4 
DISPLAY” 

Note that anything between quotes will be displayed. 

What about telling it to get something from the 99/4 key¬ 
board? OK—whenever IFG does this, he stuffs the informa¬ 
tion obtained into a line of the FORM DATA FILE either 
right-justified or left-justified. To get input from the key¬ 
board and stuff it left-justified, use this FIELD DEFINITION 
syntax: 

!! : 28:1 :32 : (ie: :line#:first character:last character:) 

To get it stuffed right-justified (needed for lining up decimals) 
do the same except add a “ > ” sign after the first “ : ”. Ex¬ 
ample: ! ! : > 28:1:32: 

By the way, IFG will show you on the display how much 
space you have to write in and will let you know if you 
overflow. 

Didn’t you say something about IFG doing math calcula¬ 
tions, you ask? Right. You can write COMMAND LINES to 
add, subtract, multiply, and divide. Each term and operator 
simply must be enclosed in parentheses. A term may be a 
FIELD DEFINITION or a constant. Here are some samples: 

! (;28:1:32:M*) (.05) (=) (;34:17:24:) 

! (:2:1:4:) (+) (:3:1:4:) (+) (:4:1:4:) (=) (:6:1:4:) 

! (:34:57:68:) (*) (:34:22:32:) (=) (:> 34:70:82:) 

! (12.1) (/) (:2:22:32:) (-) (33.3) (=) (:2:22:32:) 

I know what you’re probably saying right now: “Wow, that 
really is a lot of power! Is that all IFG can do?” Well, there is 
one more small thing. You can write a COMMAND LINE se¬ 
quence that will repeat a given number of times. Each time 
the sequence is repeated, all included FIELD DEFINITION 
line numbers are incremented. IFG always asks after each 
repeat cycle if you want' to do another. This last feature 
ma,kes it simple to fill out a form that is a multi-line list. Here 
is a sample repeat sequence: 

!!@10; “stock #?” :28:2:10: “description?” :28:12:44: 

! [“scheduled ship date?” :28:46:56: “quantity?” :>28: 
58:62: 

!’“unit price?” : >28:65:70: 

! ! (:28:58:62:) (*) (:28:65:70:) (=) (:> 28:72:79:) @ 

This sequence will start .'at FORM DATA FILE line 28 and 
go to line 38. Notice the repeat sequence is bracketed by 
symbols and the number between the first and the “ 
tells how many repeat cycles. Study this sample for a bit and 
figure out what it does. Then .you can look over Listing 5. It 
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Listing 5. 

1 ESCFESCHDC4DCZLFCR 

% \ 1 

N 1 

2 SISOESCEESCB 

KOHPUTAR HQRK5LFIFCR . 


3 

P.O.Boi 483LFCR 


4 

Electric CityLFCR 


3 

• HashingtonLFCR 


6 

99123LFLFCS 


7 

(309) 633-26531FIFLFLFCR 


e DC2DC4ESCFESCHLFCR 


9 SGESCE 

SALES ORDER ACKRQHLEDttltfNTlFLFlFCR 


10 ESCFSZSQDiti- S.O.nurttr-CR 


11 DC4DC2 

* v. 

LFCR 

12 LFCR 



13 SISOSoU tc- 

Ship to-CR•• 

e 

14 DC4DC2 

# • 

LFCR 

13 HT 


• * LFCR 

16 HT 


LFCR 

17 HT 


LFCR 

18 HT 


LFCR 

19 LFSISOShip eii-CI 


20 oc<dc: 

• 

LFLFCR 

21 

22 SiSOSUcK 1 

Omription Schtdultd Own- Unit AiountCR 

21 DC4DC2 

1 . « ’ 1 . .11 
♦ «. . ’ " a*. • 

4 LFCR 

24 SISO 

‘ ship date tity. pnceCR . 


25 SC4SC2 

» 1 ' 4 1 

• !*♦ * 

‘ LFCR 

24 0C4BC2CR 



2? iWfMMiOfincMiifsinimwimiimmtftMMMMMmuMMMiszauuacxBifCfi 

2i HT 

‘ 1 11 

• • • 

• LFCR 

29 HT 

' ill 

• • ^ 

• • 

LFCR 

30 HT 

i •. ! 

LfCR 

31 HT 

1 ’ X • i 

• 4 4 

LFCR 

32 HT 

1 1 l 

• • • 1 

• LFCR 

33 HT 

1 1 1 

w ^ 

LFCR 

34 HT 

1 * ft 

LFCR 

33 HT 

i * l 1 

LFCR 

36 HT 


LFCR * 

37 HT 

l 1 1 

• 

' LFCR 

38 ww™—>i 

nniziinn>i»aii2suiiixxcu>«iii»iiaExrz:^:::3::::x3si 

& 

***=*»** a lFCR 

39 SISO 

SUBTOTAL =CR 


40 DC4DC2 


LFCR 

41 SISO 

TAl -CR 


42 DC40C2 


LFCR 

43 SISO 

FREI6HT >CS 


44 DC45C2 


LFCR 

<3 SISO 

TOTAL =ICR 


*6 DC4DC2 • 


LFCR 

47 ESC3sNW.CS 

* 


48 VtSlThank you for tht order, Rteeeber ‘word of eouth" advertising LFCR 


49 keeps our cost! do«n..... So help spread the ward’LFCR 


30 FFCR 

f 


31 “"SALES ORDER ACKN0NLED8EREN1LFIF* LfCR 


52 ttil 11:30: *$.0. nuiber’T ;U:53:64iCR 


33 ,M §oU to’ 1 

1 :14:14:37: "sold to address line»*4Lf"CR 


34 address 

11" ; 15:13:36: "address!!" : 16:12:36:C* 


35 ' “address IV :17s 13:34; ‘iddriss 14’ : 19: l-:3b:CR 


56 ' "shio to** 

• 

* : 14:52:76: "ship to address Unes=4LF"CR 


37 1 “,tfdres» 11* ilSiSl:75: ’addrii* 12* :14:5t:75:Cf! 


58 "iddrsss »3’ : 17:51:75: 'iddrets 14' :18:51:73:CR 

ft 

59 !:"stuo na 

?" :20:13:54;CR 


60 M310; ‘stock I?* :28:2:10: ’description’* :2B;12;44;CR 


61 ’"scheduled ship date 7 * :28:46:36: 'quantity?* :>2B;38;62:CR 

• i 

62 "unit price 7 * :>28:65:70: (:2Bs58:62'HIH:28s63:70tH*Ht>28:72:79:) 

3CR 

63 M 1:28:72:79:MeH:29:72:79;)72:79:M+H:31i72:79:)U)CR 


64 ’ • 1:32:72:79:) (♦! (:33:72:79 :) if) (:34:72:79:HO l;33j72:79s)(e)CR 


63 ! 1 (:36:72: 

7?:) IOI: 37:72:79:) (-)(: >40:73:80: )CR 


66 ? 1 "tlx rate 

(ie: ,0344)?" :42:?3:80: (:40:73:80:MI1C42:73:80:)(OCR 


6* " l: >42:73:80:) ’freight charge*’" : >44:73:80: (H0:73:80:1 (OCR 


sB ! 1 U42:73:30:1:44:72:30:) (-1 
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program for my Sales Order Acknowledgement form. Figure 
2 shows the results of running IFG with the Sales Order Ac¬ 
knowledgement FORM DATA FILE. The above repeat se¬ 
quence is from lines 60-62 of that Sales Order Acknowl¬ 
edgement FORM DATA FILE. 

Finally, Listing 6 is the INTERACTIVE FORMS GENER¬ 
ATOR program. I recommend loading it without all the com¬ 
ment lines to save memory. If you use the disk drive system, 
you should use CALL FILES(I) and NEW prior to loading 
IFG. That, will give space for about a 70-line FORM DATA 
FILE. 

If you have problems or questions with the IFG please 
write me in care of 99’er Magazine. And assuming everybody 


doesn’t swamp me with letters, 1 will get right back to you 
Good luck and have fun! 



The "IFG" program is setup for use with an EPSON MX-80 
printer connected as device: ■, * » t * s ^ 

"RS232/2.DA*8.BA=9600" i 1 

If you are connected to the, other port or using a different baud \v 
rate, the OPEN statements fof the.printer on line number 2010 * 
must be changed, ' • - ! * * f * 4 v > ; 

You can use a differgijft 1 #, RS232 ,r printer with the pro* : 

gram but first check line numbers* 190-360 to make* sure these 
character sequences are compatible with your printer. Especially 
check RESETEPSON that initializes the pointer. . 


100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 - 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 


rem tftmttmtttmtmmtmtit 

REM * INTERACTIVE FORMS GENERATOR t 
rem 

REM 99'ER VERSION 9.81.1 
REM BY DAVID G. BRADER 
REM 
REM 

OPTION BASE 1 
DIM AS(70) 

RESETEPSON$=CHR* (18) ScCHR* < 20) &CHR* < 27) 
*CHR* C70)$<CHR$<27>S<CHR* < 72) &CHRS < 13> 
BLANK**" 

QU0TE*~CHRS<34> 

BANG*=CHR* <33> ScCHR* (33) 

C0L0N*=CWRS(58) 

SEMICOLON*=CHR*(59) 

RIGHTARROW*=CHR*(62) 

AMPERSAND*=CHR*(64> 

OPENPAREN*=CHR* < 40) 

CLOSEPAREN*-CHRS < 41) 

DECIMAL*=CHR*(46) 


ZEROS^CHR*(48) 
PLUS*~CHRS(43) 
MINUS*=CHR*<45) 
MULTIPLY*=CHRS(42) 
DIVIDE*=CHR*(47) 
EQUAL*“CHR*(61) 
SPACE*=CHR*<32) 


Continued on p. 38 


THla mOQRfi* SCANS THE FILE FOR LINKS THAT START LlStlOg 6. 
WITH !• . T>«* THESE " INTERACTIVE CQRWM) LINES- ARC ° 

RARSED FOR FOUR TYPES OF CO M MA N DS. 1. "COMMENTS" OR 
M0WA«S TO PR0fE*T THE INTERACTIVE USER. THIS TYPE OF 
COiWAND IS IN THE FORM OF TEXT PRE CEEP ED BY A QUOTE 
AND P OL! O M CP BY A QUOTE. 2. "FIELD—DEFINITION" TYPE CCPTWND8 
DEFINE T»« PHYSICAL FIELD INTO WHICH THE USER'S KEYBOARD 
INPUT WILL BE STORED. IT HAS THE FO RTH- 


»<LINE NURBER>*<START POSITIONS < 
EXAMPLE— i 23a Si 22a 

A 5<mi CO itlA ND LINE ISi 


2. O 


POSITIONS 


!? "ENTER SERIAL NUMBER—* It*i7s22l - 


3. -REPEAT COMMAND SEOJENCE" START WITH- !!B<NUMERIC VALUE>l- AND 
HU *?_ 0<P WITH A 9 everythin© IN BETWEEN WILL BE REPEATED THE 

***** OP TXTES SPECIFIED BY THE NUMERIC VALUE. A SAMPLE MIGHT BEf 


(Lire 20) SERIAL NUMBER- MODEL- 

(LIME 21) SERIAL NUMBER- MODEL- 

(LINE 22) SERIAL NUMBER- MODEL- 

(LINE r?) ! 1 ■FILL IN THE TABLE WUOJES THAT FOLLOW I- 
(LINET^l) !1931"ENTER SERIAL NUMBER." I20HS.24. 
(LXNE7+2) ! ! "ENTER THE MODEL NUMBER. * .20i3li40i 9 


4. -MATH TRANSFORMATIONS* ARE MADE UP OF TERMS AND OPERATORS. 
MPT BE “FIELD-DEFINITION- OR CONSTANT TYPES. 

OPERATORS ARE AND ALL TERMS AND 

OPERATORS MUST EACH BE ENCLOSED IN PARENTHESES. 

EXAMPLE. 

!!<s23a3f22.) (t) (.0544) (-) (i>23*17.33.) 

NOTE THE ->• IN THE LAST TERM WHICH CAUSES THE ANSWER TO BE 
RXBHT JUSTIFIED IN THE FIELD. 
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By George Struble 


I n the last issue ( promised that this 
time around we’d' ook at some com¬ 
mercial software packages. In keep- 
ing with that promise, this article will 
review two very different pieces of soft¬ 
ware. Since my general advice on evalu¬ 
ation criteria in the last issue was neces¬ 
sarily abstract, the present analyses 
should be useful to you as examples of 
how you might go about evaluating a 
piece of software. So here goes. 



General 

Ledger 


Tl Extended BASIC, 16K;Disk, $99.95 

• A 

Futura Software 
Ehninger Associates. Inc. 

P.O. Box 5581 
Fort Worth, Texas 76108 

The first package we’ll look at is 
Futura Software’s General Ledger sys¬ 
tem, available from Ehninger Associates. 

Page 1 Qf the documentation con¬ 
tains (1) a short statement of purpose, 
(2) an'indication of size limitations (ap¬ 
proximately 900 entries—i.e., chart en¬ 
tries plus general ledger entries— per 
month), and (3) the equipment configu¬ 
ration needed by the system. This is 
exactly what you should want to know 

About the Author \ 

George St ruble, a professor of computer 
and information science at the University of 
Oregon, is author of Business Information 
Processing with Basic. Addison-Wesley Pub¬ 
lishing Co., 1980. 


on page 1. The required configuration is 
as follows: 

TI-99/4 Console 

Tl Extended Basic Command Module 
Color Monitor 

PHP 1800 Disk Drive Controller ’ 
Two PHP 1850 Disk Memory Drives 
PHP 1700 RS232 Interface 
Tl Omni 800 Model 820 terminal 
printer with compressed print op¬ 
tion (10 and 16.5 char/in) or equi¬ 
valent 

A box of minidisks 

An Overview of System Design. 

The Futura system implements stan¬ 
dard double-entry bookkeeping, and 
produces the full range of standard re¬ 
ports: journal proof and posting reports, 
trial balance, plus balance sheet and in¬ 
come statements. And the software lets 
you define your individual “chart of ac¬ 
counts” —the set of accounts lines you 
want in these reports. There are, how¬ 
ever, some mandatory accounts. 

! tested the system by creating a skel¬ 
etal chart of accounts, entering a few 
transactions into the journal, and going 
through the proofing/jjosting/month-end 
process. Some entries were made wrong 
on purpose, so that validity checks and 
error correction procedures, if provided, 
could be inspected. 

The first thing that struck me about 
the software was that this General Ledger 
system was indeed well designed: The 
heirarchy of menus made sense natural¬ 
ly, and the functions that a user would 
want to perform were provided in a logi¬ 
cal way. In particular, information that 
I needed to see on the screen in order to 
perform an intelligent action was usual¬ 
ly there. (Note: It is not easy for a de¬ 
signer to achieve this objective, since the 
screen does not display a great deal of 
information at a time. Furthermore, 
cramming the- screen makes it hard to 
find the information you want anyway. 
So it takes rather sensitive judgement 
for a system designer to show what users 
want. Unfortunately, some system de¬ 


signers seem not to consider the prob¬ 
lem at all ...) 

Another aspect of good design is that 
. careful attention is paid to error correc¬ 
tion. A few centuries of bookkeeping 
practice have developed some standards 
for how errors should be corrected. 
These standards are adhered to in the 
Futura package. For example, after a 
general ledger entry is “posted,” any 
corrections must be made by entering 
an adjusting entry; but before an entry 
is posted, corrections can be made 
directly to the entry. And good facilities 
are provided for doing this as well. 

The documentation is well written; it 
is clear and neatly presented. The direc¬ 
tions were reasonably unambiguous, and 
I was able to follow them without gett¬ 
ing lost. (The good writers among you 
know how difficult it is to write clear, 
unambiguous instructions.) The things I 
needed to know were there, and or¬ 
ganized so 1 could find them again. 
Later, I will, however, make some sug¬ 
gestions for possible improvements in 
the documentation. These may suggest 
points for you to look for when evaluat¬ 
ing any system. 

Performance 

The Futura General Ledger system 
does indeed work: It does what it says it 
will, and it does what it should (not ne¬ 
cessarily the same thing). I did find one 
bug, however: When . I had no current 
liability detail accounts in my chart of 
accounts, the system made up liabilities 
to match my assets. This is certainly an 
out-of-the-way bug -one that a user 
shouldn't ever encounter (except on a 
practice run to gain familiarity with the 
system, prior to actual use). In real life, 
l can hardly imagine anyone’s actual 
chart of accounts not including any cur¬ 
rent liabilities. [A telephone call to Mr. 
Ehninger, the program’s author, resulted 
in an immediate correction to this minor 
defect —Ed.] 

In regard to speed, the system is not 
instantaneous since the Extended BASIC 
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programs are chained: When you go 
from one menu function to another, a 
program must be loaded from your pro¬ 
gram disk, and it is likely that data must 
be read from your data disk too. But 
during a particular function, however, 
the operation is prompt. Data entry is 
perhaps the major place where you want 
fast responsiveness, and the system per¬ 
forms well here. 

Required Level of User Knowledge 

To use this system correctly, some 
accounting knowledge is needed. You 
must know what are “debits” and 
what are “credits,” and how to create 
balancing entries for each transaction'. 
You must also be able to analyze an 
out-of-balance trial balance and create 
correct adjusting entries. The system 
provides the information you need and 
the facilities to make your actions, but 
you must know how to use them! 

This brings me back to the documen¬ 
tation. The very sensible recommenda¬ 
tion made in the documentation is that 
you practice with a few journal entries 
and reports before you start entering 
your actual data. I believe that this is 
absolutely necessary. If for no other 
reason, you.must learn what must be 
entered as positive and what as negative. 
For example, one of my practice trans¬ 
actions was a sale of $500 whose pro¬ 
ceeds were directly deposited in my 
bank account. It turned out that the 
$500 bank deposit had to be entered as 
a positive number, but the sale as a 
negative number. No doubt, if I knew 
more about accounting, this would have 
been obvious from the start, but I would 
wager that some of you would “discover” 
it during practice as i did. Some advice 
on points like this would be a useful 
addition to the documentation. 

Some of us like to read a manual or 
program documentation first, assimilate 
and understand the information, then 
try it out.. The documentation for this 
system is not sufficient for this kind of 
“armchair” understanding. Several addi¬ 
tions would have been helpful to me. 
First, a chart showing the heirarchy of 
mepus would have shown the structure 
of the system in an easily understandable 
forrft. Second, pictures of some of the 
screen displays would have been quite 
informative—especially the data entry 
screens; thqy would have told me what 
was expected. As a part of this, some 
examples <5T data entry also would have 
helped me to relate data entry, the ac¬ 
tions of the system, and the reports pro¬ 
duced. The documentation does include 
nice copies of all sample reports, but an 
explanation of the data entered to 
achieve those reports would have helped 
to tie everything together. [My personal 
preference is for documentation that is 
so loaded with examples and screen dis¬ 
plays that a computer is not needed 
initially to obtain a good grasp and un¬ 
derstanding of how a system is supposed 


to operate. Serious software developers 
would do well to study the format of 
Kenneth Bowles’ Beginners Guide for 
the UCSD Pascal System. For that mat¬ 
ter, programmers interested in purchas¬ 
ing TTs Pascal Development System can 
get a real “feel” for it by studying the 
content of the Bowles’ book. See Mr. 
Berkey’s related Pascal article in this 
issue—Ed.] 

System Summary 

In summary, the system is well de¬ 
signed and well implemented; it should 
be graciously usable by one who is fa¬ 
miliar with bookkeeping procedures. 
The documentation is well written, and 
though my personal taste would ask for 
selected additions, the necessary infor¬ 
mation to permit me to complete my 
understanding with “hands-on” practice 


is certainly present. I can highly recom¬ 
mend the system. 

Additional Linked Packages 

We have also received a preliminary 
version of Futura’s Accounts Payable 
system that can be used interactively 
with the General Ledger. Some initial 
testing revealed a few operational prob¬ 
lems in this early release. At the time of 
this writing, the developer was at work 
correcting them. The system design did 
appear to be quite good-all the func¬ 
tions I could think of were included, 
with some very nice usability features I 
did not expect. You will undoubtedly 
be hearing more about this system [and 
other linked record systems in Futura’s 
expanding line of business/professional 
software-Ed.] in a forthcoming issue. 




The 
Project 
Boss 


Tl BASIC, 16K; Disk $49.95 


Charles Mann & Associates 
7594 San Remo Trail 
Yucca Valley, CA 92284 



he second piece of software re- 
; viewed for this, issue is The Project 
Boss, available from Charles Mann 
& Associates. 

To quote from the System Overview: 

The Project Boss is a simple management too! 
to use in the financial control of any small 
business or persona! project. The system al¬ 
lows you to estimate costs for a project bud¬ 
get or project bid, keep an accurate running 
total of actual costs for the project and peri¬ 
odically estimate the amount of additional fi¬ 
nancial effort that will be required to com¬ 
plete the project. 

The documentation provided describes 
rather clearly and accurately the opera¬ 
tion of the software, and clearly lists the 
required equipment—i.e., TI-99/4 con¬ 
sole with 16K memory (resident Tl 
BASIC), one disk drive and controller, 
plus the Tl Thermal Printer or Tl RS232 
Interface and compatible printer if a 
printed copy is required. 


Testing of the software revealed that 
the program worked-all except for 
printing on the thermal printer. (An 
easy-to-correct logic bug was discov¬ 
ered). Overall, the software did what is 
described in the documentation. Not 
every package can meet these perform¬ 
ance criteria. And yet, this is not a satis¬ 
fying package to use-because of a 
number of shortcomings in the “human 
engineering.” Let us examine some of 
them with the hope that perhaps this- 
software will be improved; perhaps the 
analysis will help you evaluate other 
software; and perhaps we can help other 
software designers pay more attention 
to human engineering as they build their 
systems. 

1. 'Each project is broken into twenty 
budget categories. You can .re-label the 
categories, but you will always have ex¬ 
actly twenty of them. You cannot de¬ 
lete or add any. Furthermore, any that 
you are not using are listed in every re¬ 
port anyway, and the screen functions 
that review or change the amounts for 
each category, in turn, always take you 
past those you may not be using. This 
takes up a user’s time in a way that ap¬ 
pears silly and wasteful. A design that 
causes user frustration isn’t very good 
human engineering. 

2. This leads to a related shortcom¬ 
ing: The function of displaying (“review¬ 
ing”) budgets and costs on the,screen is 
only available for each of the 20 catego¬ 
ries ip turn. There is no way to select 
one category for review, or to escape 
from the review once you have seen 
what you wanted. Most other functions 
permit the user to specify a particular 
category; this one should too. 

3. On the display screen, the entry of 
numbers immediately follows the 
prompting messages; there’s no space or 
other punctuation in between to aid 
readability. 

4. The report format is rather unin¬ 
telligent; it is limited in width so it can 
be used on the little 32-column thermal 
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ALL’STAR BASEBALL* $19.95 

Pitching, fielding and base-running ail under player control 

ALL’STAR BOWLING** $19.95 

Tournament bowling at its best for up to eight contestants r 

CHALLENGE I $16.95 

Leaping frogs in two mind-challenging games 

CHALLENGE II $16.95 

Nim and Tic-Tac-Toe with a new twist 

'CHUTES & SHARKS** $19.95 

Rescue parachuters as they abandon ship over shark-infested 
ocean 


HOUSEHOLD 

INVENTORY 

SYSTEM 

$34.95 


With this award-winning program you 
can accurately inventory personal 
property, calculate actual replacement 
value, and maintain records on a cur- 


GALACTIC WAR** 

$19.95 

rent basis 


Fast action space battle 




SAM DEFENSE 

$19.95 



Command on authentic surface-to-air missile site 

BUSINESS SOFTWARE 


WALL STREET* 

$19.95 

General Ledger 

$99.95 

Play the stock market and become a millionaire or a pauper 

Accounts Payable 

$99.95 



Accounts Receivable 

$99.95 



Payroll 

$99.95 



Inventory Management 

$99.95 

•Also in Extended Basic 


Word Processing 

$99.95 

••Extended Basic only 


Mailing U«t 

$49.95 


ANNOUNCING A SERIES OF 
EDUCATIONAL PROGRAMS 
Use the power your computer has to focus 
•SIGHT ‘SOUND ’ATTENTION 'MOVEMENT 
To help your child learn to read. 

Write for full details and availability. 


Fully interactive programs offer a totally 
integrated accounting system. 

Loaded with innovative features: 

— Completely menu-driven 

— Random access of data 

— Choice of retrieval of account records by name 
or number 

— Fully prompted input 

— Guaranteed to be bug-free and operator-proof! 

— Hot-line and enhancement update service available. 

Purchase units individually or the entire package 
for $500.00. 

Write for full details. 


ORDERING INFORMATION: All orders shipped within 48 
hours. Please enclose payment with order. Add $1.00 for 
postage. (Add $2.00 for postage on orders outside U.S.) 


Ask for FUTURA Software at your local software dealer. 
Write for detailed description of these and other pro¬ 
grams from FUTURA. v 


Dealer Inquiries Invited 



ruTunn 

SOFTWARE 


Erl* 


Ehninger Associates. Inc. 

\' 0 . !.'/> 6:A ; > 1 

f ort Worth .-xns '610^ 

Vi / 


DISK DRIVE WOES? , — 

PRINTER INTERACTION? 

MEMORY LOSS? 

ERRATIC OPERATION? 

Don’t ww iso-.. 
Blame The " ^ 
Software! —^ 

Power Line Spikes. Surges & p # 25g 705 iso-2 

Hash could be the culprit! Fat - 

Floppies, printers, memory & processor often interact! Our 
patented ISOLATORS eliminate equipment interaction AND curb 
damaging Power Line Spikes, Surges and Hash. 

ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; Integral 
Surge/Spike Suppression; 1875 W Maximum load, 1 KW load any 
socket.*62.95 

• ISOLATOR (ISO-2) 2 filter Isolated 3-prong socket banks; (8 

sockets total); Integral Spike/Surge Suppression; 1875 W Max 
load, 1»KW either bank.*62.95 

• SUPER ISOLATOR (ISO-3), similar to ISO-1 except double 

fllterlffb 4 Suppression.*94.95 

• ISOLATOR (l£o-4), similar to ISO-1 except unit has 6 

' Individually filtered sockets.*106.95 

• SUPER ISOLATOR (ISO-11) similar to ISO-2 except double 

filtering 4 Suppression ..*94.95 

• CIRCUIT BREAKER, any model (add-CB).Add S 8.00 

• CKT BRKR/SWITCH/PILOT (-CBS).Add *16.00 

AT YOUR Master-Card, Visa, American Express 

DEALERS Order Toll Free 1-800-22S4878 

(except AK, HI, PR 4 Canada) 


/-*-:* Electronic Specialists. Inc 

171 Souffi Main Street. Natick. Mas s 01760 


Technical & Non 800: 1-617-655 1532 
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E-X-T-E-N-D-E-R 

CABLES 

Now Available 

Connects TI-99/4 Computer 

To Peripherals 

•Shielded Cable 

Comes In 2 & 3 Foot Lengths 
Other Lengths Available on Request 

2 ft. cable.$39.95 

3 ft. cable . . .. $42.95 

V 

Send Check or Money Order to: 

UMI 

P.O.BOX 4511 
PITTSBURGH, PA 15205 
Tel. 412-771-2863 

Distributor or Dealer Inquiries Welcome 








































printer even though the system asks you 
to specify the bit/baud parameters if 
you select the option for an RS232- 
compatible printer. The software doesn’t 
provide a print format that can take ad¬ 
vantage of more characters per line and 
print, for example, the budget, costs, va¬ 
riance, and completion cost in four col¬ 
umns. Furthermore, even in the single¬ 
column format, decimal points should 
have been lined up. 

5. There are a few unclear instruc¬ 
tions. For example, when I wanted to 
store my budget to disk, the system 
asked me which was my “MASTER.” 
Is that the disk with the program on it? 
No, we were really being asked which 
disk the data should be stored on. So 
why not say so? 

6. In the long run, what’s perhaps 
most troubling is what the system 
doesn't do. Although it keeps track of 
total costs entered to date in each of the 
20 categories, it doesn’t print or keep 
any record of the detailed costs you 
have entered, so as to avoid double en¬ 
try or overlooking an entry. And if you 
have to do that, is this software much 
more than a 20-accumulator adding 
machine? 

7. I have saved the most amusing for 
last—primarily because it isn’t serious. 
One of the functions you can choose is 
“INSTRUCTIONS.” The system dis¬ 
plays for you a condensed set of instruc¬ 
tions for the software—a screenful at a 
time. The instructions are reasonably 
clearly written, but no attempt has been 
made to divide the screenfuls intelligent¬ 
ly: The next screen often begins in the 
middle of a sentence! Moreover, there is 
one screen that starts “THIS IS REAL¬ 
LY IMPORTANT.” What was impor¬ 
tant? It was on the previous screen. 
How can I get back? Only by stepping 
through all the rest of the instructions, 
then stepping through them all again!!! 

Software Summary 

I would not buy this software in its 
present form. Although the intended 
purpose for the product is a good idea, 
the product itself does too little, and 
does it too awkwardly. And yet, it has 
promise. Never underestimate the 
achievement of a piece of software that 
actually does what it claims . . . 

Comments 
and 

Requests 
Invited 


your comments and 
requests. Do you disagree with some¬ 
thing? Or at least think I should have 
done it better? What would you like me 
to do in future issues? I am much more 
likely to write something that is useful 
to you if you teil me what that could be. 



Want to Get 
Published? 

7, 99’er Magazine is looking for 
- articles in all areas of personal 
.computing - that concern the 
* Texas Instruments TI-99/4 and 
other TMS9900-family systems 
'jfe.g., Marinchips, Technico, and 
, the. JM990/189). Here are the 
/jt/nds of articles that we want 
Vyou to write for us: • 

• Are you a businessman, pro- 
-V^fesslonal, hobbyist, scientist, 
/ /or engineer with an interest- 
/.V ing * microcomputer applica- 
V/Vjion? Tell us how it works, 

what problems you've had to 
■v'//overcome, and what recom- 
V; mendations you have for 
'/• others. We’re especially inter- 
,/7/ested in sharing user-written 
[///software with our readers, 
r.y /Have, you recently purchased 
///a.’piece, of hardware or soft- 
’■// * Store ^ that hasn’t quite come 
*///«£/ fqVyoqr ex pe ctat i o n s, or 
y//Vasj/bn The other hand, im- 
-7/,pressed you with its perform- 
''/Vance? We’re looking for 
V; comprehensive product and 
'//book reviews from different 
*; /perspectives. 

V Are you an educator or par- 
// ent with something to con- 
/ tribute to computer-assisted 
// instruction (CAI)? We’re al- 

V ways looking for new ideas 
/ and fresh approaches to edu- 
' cational problems. 

• Have you created any unusual 
computer games or simula¬ 
tions? Let our readers ex¬ 
perience your excitement 

/ and pleasure./ 

• Perhaps you’ve modified your 
microcomputer or have inter¬ 
faced it with some unique or 
useful hardware. Send us 
your how-to-do-it story. 

These are just some ideas. 
Perhaps you have others. Don’t 
worry if you’re not a profes¬ 
sional writer. Our editorial staff 
stands ready to help polish up 
your manuscripts. And we’ll be 
more than happy to send you a 
copy of our author’s guidelines. 

/Send your manuscripts and 
correspondence to: 

99’er Magazine / Editorial Dept. 
‘ 2715 Terrace View Drive, 

Eugene, Oregon 97405 


Nine 


SUPER DEALS FROM 
THE BACH COMPANY 

1. Texas Instruments TI 
99/4A Home Computer. 
Powerful TI Basic. Up to 72K 
total memory capacity. NEW 
typewriter keyboard. We 
carry all accessories. 

$369.95. 

2. Texas Instruments TI 59C. 
Programmable Calculator. 
With magnetic card storage. 
$189.95. $20 Rebate Program 

3. Texas Instruments TI 58C. 
Programmable Calculator. 
$89.95. 

4. Texas Instruments TI 
100C. Printer/Plotter for TI 
58C, TI 59C. $159.95. 

5. Texas Instruments TI 
Thermal Paper for I00C. 3 
pack. $9.95. 

6. Hewlett-Packard Quad 
Memory Module. Converts 

HP-41C to HP-41CV 
capabilities. $89.95. 

7. Hewlett-Packard HP-41CV 
Alphanumeric Full 
Performance Programmable 
with Expandable Continuous 
Memory. $269.95. 

8. Hewlett-Packard HP-34C. 
Advanced Programmable 
Scientific Calculator with 
Continuous Memory, 

$119.95. 

9. Hewlett-Packard HP-38C. 
Advanced Financial 
Programmable Calculator with 
Continuous Memory. 
$119.95. 

ORDER TOLL FREE 
800-227-8292 

California Residents call 415- 
494-1995. Use VISA, 

Mastercharge, Check or 
money order. Indicate card 
number and expiration date. 
Add $2.50 for shipping. 

m 



- -ACH 

Company 

P.O. Box 51178 
Palo Alto, CA 94303 
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The 99'er Book Review 


BASIC Computer Programs for the Home 

By Charles D. Sternberg 
(Hayden Books) paper, $9.95 


Practical BASIC Programs 

Edited by Lon Poole 

(Osborne(McGraw-Hill) paper, $15.99 


By John Clulow 


ASIC Computer Programs for Business 

(Vol. 1) 

By Charles D. Sternberg 
(Hayden Books) paper, $10.95 


BASIC Computer Programs for the 
Home by Charles D. Sternberg (Hayden 
Books) is an excellent collection of 81 
practical programs—each documented 
with a description, user instructions, 
and sample run. Program modifications 
are easily made since all programs are 
well documented internally with REM 
statements and an accompanying sym¬ 
bol table which describes each variable 
and function used. 

The changes required in converting 
to Tl BASIC are minimal. The MID$ 
function must be replaced with SEG$ 
which does the same thing. Occasionally, 
DIMension statementsuse variable names 
instead of numbers. In this case, you 
need only examine the initialization 
portion of the program and substitute 
the appropriate number for the variable 
name: 

Given 100 Let N=20 

110 DIM A(N) 

Change 110 DIM A(20) 

The OPTION BASE 1 statement should 
be included in the initialization portion 
of the program. Finally, PRINT state¬ 
ments sometimes require revision for an 
acceptable display with Tl’s 28 charac¬ 
ter screen line or appropriate modifica¬ 
tion for use with a printer. 

No problems in file-handling conver¬ 
sion are encountered since none of the 
programs use external data files: In 
most cases, data are entered and retained 
in DATA statements. Although many of 
the programs in the book will prove use¬ 
ful "as is, 1 ’ converting them to accept 
external disk or tape cassette data files 
should enhance their utility considera¬ 
bly. The thorough internal documenta¬ 
tion that is provided makes such changes 
easy to accomplish. 

The only hardware required to RUN 
any program in the book is a console, 
monitor or TV, and cassette recorder 
for program storage. However, effective 
use of many of the programs does require 
a printer. 


The programs are grouped in ten cat¬ 
egories covering a wide range of home 
applications. The 11 Home Financial 
Programs include Household Budget and 
Flousehold Expenses. The first program 
allows you to project a budget for up to 
six months; the second provides a 
monthly analysis of actual versus bud¬ 
geted expenses. 

If you are considering purchase of a 
car, Automobile Comparisons, one of 
6 Automobile Related Programs, can 
help you take all operating costs into 
account and compare different models. 
If you already have a car, Trip Planning 
can help you prepare an itinerary, pro¬ 
ject daily trip costs, and compare various 
routes. 



II4Y|)L'N 


If you like to cook, you’re sure to 
find a palatable program or two among 
the 9 Kitchen Helpmates. Meal Plan¬ 
ning, for instance, prints a menu and 
categorized grocery checklist from your 
meal selections. And if you like to eat, 
there are a couple of diet programs to 
help you keep track of those calories. 

With the 16 List Programs for Every 
Purpose, you can keep track of every¬ 
thing from addresses to 99’er Magazine 
articles, as well as coin, book, record, 
and even beer can collections. Miscella¬ 
neous Programs for Home Use includes 


Utility Bill Analysis, Household Inven¬ 
tory, Weight Control, Paper Route, and 
seven other programs. The other pro¬ 
gram categories are Tutorial Programs, 
Conversion Programs, Recreational Pro¬ 
grams and Hobbyist Diaries. - 


Practical BASIC Programs edited by 
Lon Poole (Osborne/McGraw-Hill), is by 
far the best single source of financial 
and technical programs I have seen. 
Thorough user documentation is pro¬ 
vided for each of the 40 programs, re¬ 
plete with general discription, examples, 
practice problems, and even references 
for further study. 

Conversion to Tl BASIC presents no 
real problems. You must use SEG$ to 
replace the MID$ function, and in¬ 
stead of "+” in string concatenation: 

Given 100 A$=B$+C$ 

Change 100 A$=B$&C$ 

In some cases, PRINT statements require 
modification to fit the Tl 28 character- 
display line. In addition to required lan¬ 
guage conversions, the appendix provides 
a subroutine which can be used to sus¬ 
pend output when the screen is full. 

The programs fall into four general 
areas of application: (1) Financial, (2) 
Management Decision, (3) Statistics, 
and (4) Mathematics/Scientific. Some of 
the financial programs are Income Aver¬ 
aging (form 1040 G), Present Value of a 
Tax Deduction, Financial Statement 
Ratio Analysis, Checkbook Reconcilia¬ 
tion, and Home Budgeting. As an exam¬ 
ple of the quality of these programs, 
consider Home Budgeting: The user is 
first questioned extensively as to sources 
of income, outstanding loans, credit 
cards, and expense items. Cash flow is 
then projected on a monthly basis show¬ 
ing the day, date, and amount of each 
individual transaction, together with 
opening cash balance and a cash-in/cash¬ 
out summary. 
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The management decision programs 
cover a number of operations research 
models including Markov Analysis, 
Queuing Theory, PERT, Critical Path 
Method, Bayesian Decision Analysis, 
Economic Order and Production Quan¬ 
tities, Nonlinear Breakeven Analysis, 
and Payoff Matrix Analysis. ! think 
these are called “management decision’' 
programs because before you start typ¬ 
ing them in you have to decide if you 
can manage to figure out what in the 
world they do . . . 



If you want to analyze some data and 
need a good descriptive statistics pro¬ 
gram, Statistics provides 26 measures of 
central tendency, dispersion, skewness, 
kurtosis, and correlation for grouped 
and ungrouped data. There is also a pro¬ 
gram which provides an unbiased esti¬ 
mator of the standard deviation based 
on the gamma function, as well as good 
chi-square and confidence intervals pro¬ 
grams. 

1'he mathematics and scientific pro¬ 
grams include Newtonian and Lagran- 
gian Interpolation, Sums of Powers, 
Factorials, Numeric Base Conversions, 
and Temperature Conversions (Fahren¬ 
heit, Celsius, Reaumur, Kelvin, and Ran- 
kinc). There is even a musical key trans¬ 
position program! Any of these could 
be easily adapted for inclusion in a pro¬ 
gram you may be writing. 

In summary, if you want to explore 
the area of practical applications for 
your computer, both of these books 
should prove most valuable; they are in¬ 
expensive >and present virtually no soft¬ 
ware conversion problems. 


In contrast to the previous two 
books, BASIC Computer Programs for 
Business (Vol. 1) by Charles D. Sternberg 
(Hayden Books) contains integrated sets 
of programs (business application sys¬ 
tems) as well as individual business appli¬ 


cation programs. The programs are 
grouped under the headings (1) Financial 
Control and Analysis, (2) Inventory 
Control and Analysis, and (3) Produc¬ 
tion Planning and Control. 

They are intended for the typical 
business computer system which uses 
disk storage and a printer. Their modu¬ 
lar design will allow selective application 
for specific business needs. 

The documentation provided is out¬ 
standing. In addition to liberal use of 
REMark statements within a program 
and a symbol table which describes all 
major variable names and BASIC func¬ 
tions, the reader is given (a) a general 
description of the business process, (b) 
a description of the systems operation 
complete with flow charts, and (c) a de¬ 
tailed layout of all files used. One or 
more examples following each program 
allow you to observe its operation. This 
documentation will facilitate program 
extension and modification as well as 
construction of new programs from 
available program modules (since within 
each application area there is consisten¬ 
cy with respect to use of variable names 
and processing methods). 

The financial programs include a 
bookkeeping system, an accounts receiv¬ 
able system, and 21 general financial 
analysis programs. The bookkeeping sys- 
em is similar to a manual method: At 
the beginning of the accounting period, 
required accounts are determined and 
files initialized. Throughout the period 
as journal entries are posted to the file, 
account file contents can be listed, ac¬ 
counts displayed, account information 
corrected, and journal entries recreated 
as required. At the end of the account¬ 
ing period the system will prepare a trial 
balance and income statement. After 
posting net income/loss to capital ac¬ 
counts, a balance sheet is prepared, clos¬ 
ing journal entries are made, and ac¬ 
counts closed. The system uses one file 
for operation and contains 10 programs. 

The accounts receivable system allows 
a user to add, change, and update ac¬ 
counts with payment and charge trans¬ 
actions. In addition, monthly accounts 
receivable reports are prepared together 
with monthly statements for customers. 
Additional capabilities include copying 
the file for recovery purposes and clos¬ 
ing the file at the end of the accounting 
period with a summary report by ac¬ 
count. One disk file is required for pro¬ 
gram operation. 

The general financial programs in¬ 
clude breakeven analysis, balance sheet 
preparation, cash flow and budget anal¬ 
ysis, three types of forecasting, depre¬ 
ciation, amortization, return on invest¬ 
ment, property and equipment compari¬ 
sons, and several others. 


Inventory control and analysis in¬ 
cludes a perpetual inventory system, a 
periodic inventory system, and five in¬ 
ventory analysis programs. The perpetual 
inventory system allows a user to up¬ 
date the inventory file as each transac¬ 
tion is entered. The status of specific 
items can be determined in response to 
customer request. Monthly status reports 
summarize transactions in the inventory 
period. At any time during the period, 
new inventory items can be added, and 
data for existing items corrected. 

The periodic inventory system allows 
monitoring and control of an inventory 
on a periodic basis (e.g., weekly, month¬ 
ly, etc.). At the end of a period, a com¬ 
puter-printed recording log is used to 
take a physical inventory. Then, records 
of incoming stock and inventory-on-hand 
data are processed, files are updated, 
and a report for the period is printed. 
Optional reports (by location or class 
code) and an inventory analysis program 
(providing projected use and reorder 
point information) are also available. 
The system uses four files: an index file, 
an inventory master file, and two tem¬ 
porary transaction files. The general in¬ 
ventory programs include reorder point 
computation, inventory turnover analy¬ 
sis, inventory use projections, asset con¬ 
trol/accounting and material locator. 



Finally, the production planning and 
control category includes 10 programs. 
For assistance in product pricing, 
JOBCOST accepts overhead, fixed, and 
variable costs to compute component 
and overall costs for various production 
quantities. A bill-of-materials program 
maintains a disk file with material re¬ 
quirements—including individual com¬ 
ponents and assemblies for several pro¬ 
ducts. With the production scheduling 
program, an updated schedule file is 
maintained and can be reviewed to de¬ 
termine available times for using critical 
resources. Job routing maintains a file 
containing individual processes or tasks 

Continued on p. 37 
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Advanced Programming Techniques 


How To Write A BASIC Program 





That Writes BASIC 



PART l: 

A SURPRISING DISCOVERY WITH 

# t 

TI’S PROGRAMMING AIDS 



By John Clulow 


T l’s Programming Aids III opens 
the door to some powerful pro¬ 
gramming techniques. The Cross 
Reference and Editor capabilities of this 
software will be appreciated by the se¬ 
rious Extended BASIC programmer. But 
the excitement really begins when you 
realize how this software does its thing. 

PA III can provide (1) a tabular, line 
number cross reference for all variables, 
arrays, keywords, functions, and line 
number references in a program and (2) 
the ability todelete, move, or resequence 
specified groups of lines within a pro¬ 
gram muen more quickly than could be 
done manually at the keyboard. 

Required Hardware 

Programming Aids III is a set of four 
Extended BASIC programs (LINPUT, 
CREF, CREFPRINT, and EDITOR) 
available on disk at a suggested retail 
price of $19.95. In addition to a disk 
controller, disk drive, and the Extended 
BASIC Command Module, a printer is a 
practical necessity; either the Tl Ther¬ 
mal Printer or an RS232-compatible 
printer may be used. In fact, there is no 
provision^for screen display of the out¬ 
put from The Cross Reference procedure. 
{I use the inexpensive “Paper-and-Pencil 
Printer,” however, and so modified the 
CREFPRINT program to display the 
cross reference table on the screen, 
using the crude SHIFT C — CONTINUE 
method to stop and start the output. 
These simple changes are given follow¬ 
ing this review.) 

EDITOR 

The EDITOR program makes possi¬ 
ble virtually any desired modification of 

20 99'er Magazine Sept/Oct 1981 


line numbers in a BASIC or Extended 
BASIC Program. Heretofore, the only 
way to resequence a program was to use 
the RESEQUENCE (RES) command 
which affects all line numbers within a 
program. By way of contrast, EDITOR 
allows one to resequence specified sec¬ 
tions of a program without affecting 
others. 

If, for instance, you have numbered 
subroutine statements in a manner 
which is easy to remember (1000, 2000, 
3000, etc.), you can retain this number¬ 
ing and "open up” a previous part of 
the program for insertion of additional 
lines. An even more useful application 
would be the rearrangement of sections 
of BASIC code. Suppose, for example, 
you want to merge several programs, 
each of which contains subroutines. 
Without EDITOR, you would be faced 
with the time consuming chore of mov¬ 
ing all subroutines to the end of the 
merged program. With EDITOR, this 
procedure can be completed very sim¬ 
ply and quickly by re-numbering all sub¬ 
routine lines. 

Finally, the EDITOR program allows 
deletion of secions of BASIC code. If 
you want to get a subroutine out of one 
program to use in another, it’s no 
problem. 

How EDITOR Works 

If you are wondering how a BASIC 
program can alter another BASIC pro¬ 
gram, be assured that no mirrors are 
involved. It is a relatively simple pro¬ 
cedure which anyone with Extended 
BASIC can use to write their own cus¬ 
tom utility programs and even BASIC 
programs which write other BASIC 
programs! 

The technique is based upon what 
happens to a program when it is saved 
with the MERGE option (see page 163, 


Tl Extended BASIC manual). If you 
have ever cataloged a disk containing a 
file saved with the MERGE option, you 
may have noticed that unlike an ordina¬ 
ry program which carries the Type des¬ 
cription PROGRAM, a program saved 
with MERGE is actually a data file con¬ 
sisting of display code with variable 
length records having a maximum length 
of 163 bytes. A BASIC program can ac¬ 
cess this sequential file like any other 
data file. 

In addition to creating a data file 
form, saving a program with MERGE 
makes two other important changes. 
First, the order of program lines corre¬ 
sponds to the order of program line 
numbers. (By contrast, when a program 
is saved without MERGE, the file is a 
program memory image, and lines are 
placed in program memory in the order 
in which they were entered-not accord¬ 
ing to line number.) Second, the con¬ 
tent of each line is represented in ‘‘con¬ 
densed format”: All non-essential in¬ 
formation is deleted in a coding process. 
When a program saved with the MERGE 
option is loaded into memory with the 
MERGE Command and LISTed (see Tl 
Extended BASIC, page 122), the coding 
process is reversed and each ' program 
line is reconstructed. 

'4 

In order to understand how the 
EDITOR program works, it is necessary 
to know how line numbers are repre¬ 
sented in condensed format. The first 
two bytes of each record contain the 
line number represented in ASCII code. 
Table 1 shows how the line numbers 
”80” and ”9020” are represented in 
ASCII characters. Starting with the line 
number 80, the first step involves repre¬ 
senting the base 10 number in binary. 
Two bytes (8 bits) are available for this 
representation. Next, the base 10 repre¬ 
sentation of each byte is determined 
I 
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and the corresponding ASCII symbol 
produced. In this case, the character 
with an ASCI I code of 80 is “P”. Apply¬ 
ing this process to the number 9020 
gives the ASCII representation 

In condensed code format, when the 
left-most bit of a byte is “on,” the soft¬ 
ware which reconstructs a program from 
the code is signaled that some special ac¬ 
tion will be required in the reconstruc¬ 
tion process. In the case of line num¬ 
bers, this principle applies to the first 
bit of the first of the two line-number 
bytes. When all bits in both bytes except 
this left-most one are “on," the number 
represented^ base 10 is 32767 (in bina¬ 
ry, 01111 y 1 Jill 1111), the highest 
allowable line number in a program. 
When the left-most bit is added, the 
two-byte combination becomes an 
end-of-file mark. Thus the first two 
bytes of the last condensed format record 
must be CHR$(255)«&CHR$(255) or 
equivalently 65535 in base 10. 

With this information, you should be 
able to understand the basic operation 
of the EDITOR program. The program 
to be edited is first saved with the 
MERGE option, and then the EDITOR 


program is loaded and run. Upon entry 
of the “OLD” command provided, 
EDITOR inputs each record in the con¬ 
densed format file and constructs the 
line number from the ASCII codes of 
the first two bytes. Program line num¬ 
bers thus obtained are stored in an array 
-array position corresponding to record 
number. After the user has altered these 
numbers-using the DELETE (DEL) and 
RESEQUENCE (RES) commands pro¬ 
vided, the SAVE command initiates the 
process in which altered numbers are 
reassigned to records in the file. As each 
record is read a second time, the corre¬ 
sponding line number in the array is 
translated into two ASCII characters 
which are substituted for those on the 
record, and the new record is written to 
a new file (after making the necessary 
changes to any line references). At the 
end of this process, the end-of-file mark 
is written as the last record on the new 
file. After initializing program memory 
with the NEW command,all you need to 
do is load the new file with the MERGE 
command. The program will then be re¬ 
constructed and can be SAVEd in the 
usual way. 



Texas 

Instruments 

TI-99/4A 


TI-99/4A Console 

$379.00 

10" Color Monitor 

329.00 

Disk Controller 

223.00 

Disk Memory Drive 

369.00 

Speech Synthesizer 

111.00 

RS232 Interface 

167.00 

Telephone Modem 

167.00 

RF Modulator 

37.50 

32K Memory Expansion 

298.00 

Solid State Printer 

298.00 

Joysticks (pair) 

27.00 

Dual Cassette Cable 

11.95 

Command Modules 


Extended BASIC 

76.00 

TI LOGO 

209.95 

Terminal Emulator II 

39.95 

Speech Editor 

36.95 

Household Budget 

34.95 

Management 


Personal Record Keeping 

39.95 

Video Chess 

54.95 

Football 

24.95 

Hunt the Wumpus 

21.95 

The Attack 

34.9 5 

A-Maze-Ing 

20.95 

Connect Four 

16.95 

Addition & Subtraction 1 

34.95 

Multiplication 1 

34.9 5 

Statistics 

37.95 

Diagnostic 

24.95 

Printers 


TI 840RO Basic 

895.00 

TI 810RO Basic 

1480.00 

TI 820RO Basic 

1795.00 

TI 82SRO Basic 

1408.00 


Call for Prices 
on other TI, Image, 
Futura and Instant Software 
for the TI 99/4 & TI99/4A. 

Prices FOB Lexington, KY 
Add $4 for shipping 
KY Residents add 5% tax 
VISA &MC Orders add 3% 




ORDER TOLL FREE 
(ou tside Ken tucky) 
1-800-354-9099 
Kentucky Calls 
606-276-1519 


CBM 


IIMC 


198 Moore Dr 
Lexington, KY 405 
t-800-354-9099 
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Simple Techniques 

Provide€ i 

• DYNAMIC FULL SCREEN GRAPHICS 

• REALISTIC SOUND EFFECTS 

# 3 FAST FUN GAMES # 

1) LASER WARS—Zap alien saucers with a laser 
beam—for one player. 

2) RACING—You drive the speedster. If you 
reach the checkered flag,did you beat the high 
score? Every game is different and you can 
customize the track for even more variety. 

3) WRAP—(requires Joysticks)—you’ll enjoy this 
fast paced game.One,two, or “three” players. 



17 years combined experience 
went into analysis, design, programming, 
testing, and documenting these games. 


SPECIAL OFFER 

All 3 games $9.95 cassette 

SI 3.95 disk 


California orders 
add 6% tax 


Send cash, check, or money order to 

Kemp Software, TI Games Group 
3292 Mission Blvd. 

San Diego, CA 92109 




PROFESSIONAL 

SOFTWARE 

for the TI-99/4 


Accounts Receivable .S 99.95 

Accounts Payable. 99.95 

Inventory. 99.95 

General Ledger. 99.95 


Package (All 4 Systems) .... S350.00 

Extended BASIC 


Inventory - Invoice.$129.95 

Payroll.$129.95 


• Disk-Based, 1 or More Drives 

• Supports RS-232 

• Full Documentation 

For More Information Contact : 

W. R. Wilson Co. 

928 North Apple St. 
Greenfield, IN 46140 
Tel. (317)462-1099 


CROSS REFERENCE 

The remaining three programs 
(LINPUT, CREF, and CREFPRINT) are 
used to produce a complete tabulation 
of all lines in which each variable, array, 
keyword, function, and line number ref¬ 
erence occurs. An independent tabula¬ 
tion is provided for each subprogram. 
The cross reference table will give you 
detailed documentation for use in pro¬ 
gram development, and would also seem 
to be a useful tool in analyzing a poorly 
documented program. (See Table 2) 

As in the case of the EDITOR pro¬ 
gram, the first step involves saving the 
program to be cross referenced by using 
the MERGE option. The LINPUT pro¬ 
gram converts the DISPLAY records of 
the merged file to INTERNAL code, 
presumably to speed subsequent execu¬ 
tion. The CREF program then reads in 
each record of the file and analyzes its 
contents^for the presence of all key¬ 
words, functions, etc. which occur in TI 
Extended BASIC, as well as in the user’s 
variable names, arrays, line references, 
and subprograms. The output, a list of 
the line numbers in which each element 
is found, is written to a disk file. The 
file is then printed by the CREFPRINT 
program. 

The instructions recommend that the 
CREF program be run in TI BASIC, ra¬ 
ther than Extended BASIC, to speed 
excution. Even with this advantage, 
however, the cross referencing of a iarge 

22 99'er Magazine Sept/Oct 1981 


program should be planned such that 
you can be doing something else-like 
taking a trip to Switzerland. Actually, it 
doesn't take quite that long: cross refer¬ 
encing a program of moderate size {270 
lines) took 35 minutes. 

I am sure of that time because I used 
the CREF program six times before I 
discovered the source of a bug which 
caused a file error half way through the 
output of the cross reference table. It 
turned out that the program was attempt¬ 
ing to print a record 255 bytes long in a 
VARIABLE length record format where 
maximum length is 254 bytes. Because 
the problem occurred as a result of the 
characteristics of the program I chose to 
cross reference, chances are it will never 
happen to you, but the fix shown fol¬ 
lowing this article is recommended just 
in case. 

How CREF Works 

Although a detailed analysis of the 
cross reference program is beyond the 
scope of this article, generalization of 
the principles involved presumes an un¬ 
derstanding of the structure of con¬ 
densed code. As mentioned previously, 
the method used to signal the recon¬ 
struction software that it is encounter¬ 
ing an “instruction” byte involves an 
“on” condition in the left-most bit. In 
contrast to line numbers, most “instruc¬ 
tions” in condensed code consist of a 
single byte. When the left-most bit is 


“on” (i.e., 10000000) the base 10 
representation is 128. Instructions thus 
begin with the number 10000001 or 
129. 

ASCII byte codes used by the recon¬ 
struction software to generate BASIC 
keywords, punctuation, etc. are trans¬ 
latable with the program “Condensed 
Format Code Table.” This program gen¬ 
erates a file called DSK1 .FILENAME 
which is in condensed format. Each 
record in the file contains a single byte 
in the third position beginning with 
ASCII 129 and ending with ASCII 254. 
This byte will be interpreted as an “in¬ 
struction” by the reconstruction soft¬ 
ware. Proceeding the byte, a two-byte 
line number is written; following it is an 
end-of-line mark, ASCII 0. Line num¬ 
bers have been set equal to the ASCII 
code for ease in subsequent interpreta¬ 
tion of the results. 

In order to view the reconstruction 
of each potential BASIC element, you 
first initialize program memory with the 
NEW command, then load the output 
file with the MERGE command as if it 
were a program—i.e., MERGE DSK1. 
FILENAME . The result is given in 
Table 3. For example: 

CHR$(129) is reconstructed as ELSE 
CHR$(l30) as : : 

CHRS(1 66) as WARNING 

Continued on p. 77 
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Applesoft 
to Tl BASIC 


By Samuel D. Pincus 



I n the previous issue (july/August 1981), Fred Forster 
used this column to show us how to convert TRS-80 
BASIC to Tl BASIC. Well, as many of you know, the 
TRS-80 hasn’t been the only machine to spawn prodigious 
amounts of software. The Apple II has also generated its 
fair share of applications and games programs-most of 
them taking advantage of the Apple’s color graphics capa¬ 
bility. In this regard, the Apple is more like the TI-99/4(A) 
than the non-color TRS-80. And, as it turns out, the Tl 
BASIC interpreter is indeed very similar to the APPLESOFT 
BASIC interpreter. In this first article, I’ll discuss some of 
the major considerations when converting from APPLESOFT 
to Tl BASIC. In a later article, I’ll deal with Apple graphics. 

The APPLESOFT language card has about 29 non-graphic 
commands which are identical to Tl BASIC. These com¬ 
mands, shown in Table 1 below, can be copied without 
much concern over compatibility. 


ABS 

DEF 

GOTO 

ON...GOSUB 

SQR 

ASC 

DIM 

INT 

READ 

STEP 

ATN 

END 

LEN 

REM 

STOP 

CHR$ 

EXP 

LET 

RETURN 

STR$ 

COS 

FOR...TO 

LOG 

SGN 

TAN 

DATA 

GOSUB 

ON...GOTO 

SIN 



Table I 


of “45.2”. If the string does not contain valid numeric char¬ 
acters, however, the results are very different. Tl BASIC 
will stop the program if the field contains non-numeric char¬ 
acters. APPLESOFT, however, will return with the numeric 
equivalent of the numbers found in the string before the 
first non-numeric character. For example: VAL (“123AB”) 
will return with 123. If the first character of the string isn’t 
numeric, APPLESOFT returns a 0. 

This is important because it means that APPLESOFT 
does not have to edit a string prior to the VAL statement. 
A typical program will have code such as 

10 INPUT AS 
20 X=V AL( AS) 

30 IF X=0 THEN 10 

I’ve found that in most cases, I can ignore the whole issue 
by using Tl’s built-in numeric editor and coding INPUT X 
in place of statements 10 to 30 above. If you can’t do this, 
use the following routine to replace the APPLESOFT VAL 
command: 

10 FOR Y=1 TO LEN(AS) 

20 IF( ASC(SEGS(A$,Y,1 ))<48)+(ASC(SEGS(A$,Y, 1)) 
>57) THEN 40 
30 NEXT Y 
40 Y=Y — 1 

50 Y-VAL(SFGS(A$J ,Y)) 


In the remaining 26 or so commands, the differences 
range from very slight to major. Most importantly, the dif¬ 
ferences though slight in format or content can cause major 
problems in converting code. I’ll go into each command 
showing what to look for and how to resolve difficulties. 

* 

String Commands 

APPLESOFT uses three different commands (LEFTS, 
MID$, and RIGHT$) in place of the Tl’s SEG$. The state¬ 
ment LEFT$(A$,N) references the first N characters of 
string A$. This directly translates into SEG$(A$,1 ,N). 
MID$(A$,M,N) isthesameas SEG$(A$,M,N). Right$(A$,N) 
references the last N characters in string A$. The best way 
to duplicate this is to combine the LEN and SEG commands 
as follows: SEG$(A$,LEN(A$)-N+1 ,N). 

The VAL function acts the same way in both APPLE¬ 
SOFT and Tl BASIC if the field being VALed is a valid 
numeric string. That is, both will return 45.2 as the value 


Note: This is not a rigorous equivalent of APPLESOFT'S 
VAL, but it is sufficient for whole numbers greater than —1. 

FOR-TO-STEP-NEXT 

In the usual run of programs, the FOR-TO-STEP state¬ 
ment is identical in the two interpreters. There is, however, 
a very significant difference to look out for. The BASIC 
statement FOR Z=5 TO 4 will execute once in APPLESOFT 
but will not execute at all in Tl BASIC! This difference is 
important but can easily be spotted while transcribing a pro¬ 
gram. It isn’t so obvious if the statement were FOR Z=A TO B 
where A and B are computed variables. The safest thing is 
to test for A greater than B. If it is, make B equal to A be¬ 
fore entering the loop. 

Both interpreters treat the STEP statement the same 
way and arc very similar in the format of the NEXT state- 
ment-though in APPLESOFT, NEXT may boused by itself 
to end a single FOR loop; if the FOR loops are nested, 
however, APPLESOFT needs the variable name just as in Tl 
BASIC. 
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A Bargain! 


Order Now! 

Game Packages I & II 

All 6 Games contained in our first 
two games packages... on one disk! 

Games I Package Games It Package 

Space Bar Bandit —Turns your Tl Eliza —Your Tl becomes your 
into a slot machine! Optional speech chotherapist! Plain English ii 
output and reply. 

Bio Rhythms tl —Plots physical. Tl Poet —Lets you create unlirr 
emotional and intellectual cycles tor verse on any subject you se 
anytime period for one or two simul- Change or add to subject matte 
taneously! Electron —Rays are reflected. 

Number Please —All the excitement fleeted or absorbed, giving you c 
of Master Mrnd “ Optional speech to location of hidden electroi 
output space-age Black Sox.'* 

“Master Mind is a trademark of ““Black Sox is a trademar 
Invicta Plastics. Parker Brothers 


Tlmore Game Packages I & II are still available separately 

Order Games l-GT-01 (Tape)-$10.95 or GD-01 (Dl»k)-$14.95 
Order Games II—GT-01 (Tape)—*10.95 or GD-01 (Disk)—$14.95 


-The Tl software most requested 
See our next advertisement for the 


Please send me: 


SUB-TOTAL 


Add $1 for shipping & handling 


Florida residents add 4% sales tax 


TOTAL ENCLOSED 


(All Tlmore disk* and tapes are compatible with standard Tl 99/4 
systems . Games I and II are Written In standard Tl BASIC.) 


Name 


City ---—_—.... ... ....--—-——- 

State/Zip ; : ———_—--—---- 

Make check or money order payable to: 

TI MORE 

PRODUCTS 

A division of M-l-A Systems Corporation 
Dept. 99-2 • P.O. Box 1431 • Winter Park, Florida 32790 


Address 


INPUT/OUTPUT (I/O) 

The APPLE II has a screen 40 characters wide with 24 
rows. It has automatic tabs at 11,22, and 33. The TI has 24 
rows of 28 columns with a single tab at 14. This means that 
a large portion of the conversion effort will be directed to¬ 
ward the re-formatting of print data. A further explanation 
of screen formatting will be found in the SCREEN com¬ 
mands section later. 

Both machines use very similar INPUT and PRINT state¬ 
ments. They differ only in the use of print separators. Both 
use the comma as a tab command and the semicolon as a 
non-space separator. APPLESOFT reserves the colon for a 
special use and doesn’t treat it as a new line separator. 
When converting, always keep this in mind because it pro¬ 
vides a powerful formatting tool when converting PRINT 
statements. The TAB command is similar in both interpre¬ 
ters, but Tl machine skips to a new line if a TAB value is 
less than the current column location. The APPLE will ig¬ 
nore the TAB statement in ibis case. 

As part of the print function, APPLESOFT has a com¬ 
mand of the format SPC(N) which is used to print N spaces. 
This must be replaced with a string of N spaces in the Tl 
PRINT statement. APPLESOFT has to be very careful with 
spaces because it docs not formal a number with leading 
and trailing spaces the way Tl BASIC does. This means that 
it is very rare to see something like PRINT J;K in APPLE¬ 
SOFT—a perfectly acceptable command in Tl code. 

The APPLE II screen starts off with the cursor at the top 
and works its way down to the bottom before scrolling be¬ 
gins. To replace the Tl colon in forcing line feeds, the 
APPLE uses the HTAB and VTAB statements to shift the 
cursor horizontally and vertically. This is used to print infor¬ 
mation at different locations on the screen. When convert¬ 
ing, either change the print format to use line-feeds (colons), 
or use HCHAR to print at an equivalent location. Note: Tl 
provides a full PRINT AT (using HCHAR) routine as part 
of its Programming Aids / package, but it is very slow. In 
many cases (where scrolling is acceptable), you arc better 
off setting up a sequence of PRINT commands using the 
colon (PRINT ::::::). If you must use the HCHAR 
method of print out, here’s a routine to print string A$ at 
row RO column CO: 

10 FOR X= 1 TO LFN(AS) 

20 CALL HCH AR( RO.CO+X — 1 .ASC’CSLG S( A$,X, 1 ))) 

30 NEXT X 

This routine is much faster but requires you to remember 
to begin at column 3 (where Tl BASIC begins its PRINT 
line) and not to allow AS to extend past column 30 (where 
Tl ends its PRINT line). 

The prompt for APPLLSOFT input is the same as for Tl 
BASIC except that it uses a semicolon in place ol the colon 
to separate the prompt from the input variable. 

For example: 

10 “ENTER A NUMBER”!) 

VS 

10 “ENTER A NUMB HR” :Q 

The last I/O difference concerns getting a single character 
without using the INPUT statement: APPLE uses the GET 
statement, while Tl uses the CALL KEY statement. 

DATA-RESTORE 

Both interpreters have identical DATA statements but 
the RESTORE is much more powerful in the Tl BASIC ver¬ 
sion. APPLESOFT will onlv RESTORE to the first DATA 
statement in the program. Lor this reason, it isn't unusual 
to see an APPLESOFT program reading 100 or more DATA 
elements in order to get to the one needed by a particular 
routine. For Tl-BASIC, a simple RFSTORF NNN (where 

Continued on p. 44 
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GAMES of AGILITY 

and 

DERRING-DO 



Dogfight 

By W.K. Balthrop 



Space War 

By Mark Moseley 


F orget all the educational and technical stuff you've been reading 
in the rest of this magazine. Sure, it's been interesting and infor¬ 
mative . . . but you need some fun too! Right? Relax then. You're 
in my territory now: Kelley’s Korner-the place for great graphic 
games and sensational simulations. 


Listen 99’ers, 

And you shall hear. 

The roar of two rockets 
As they blast missiles and veer. 

It’s an old-fashioned shootout 
In deep, deep, dark space. 
You’re surrounded by asteroids, 
So carefully give chase . . . 

Just four centuries earlier, 

In skies laced with fear. 

It was a victorious dogfight, 
Then stein of stout beer. 

So it’s your choice of combat 
With missile or gun, 

Just key in a program, 

And get ready for FUN ! 


DOGFIGHT r 


By W.K. Balthrop 



D ogfight is a two-player game writ¬ 
ten in Extended BASIC. Each 
player has control of one aircraft 
-a bi-plane. You must out-maneuver 
your opponent and shoot him down 
before he can clo the same to you. II 
both planes crash into each other, the 
score will not change. The first player to 
destroy 10"cnemy aircraft wins the 
game. 

Your plane is controlled with 4 direc¬ 
tional keys. Unlike most games, the key 
pressed will not cause your plane to 
immediately move in that particular di¬ 
rection. For example, if your plane is 
traveling down and to the right at a bear¬ 
ing of 135 degrees and you press “E” or 
the up arrow, your plane will turn its 
nose up and first change its heading to 
90 degrees, then to 45 degrees, and final¬ 
ly to due North -i.c., straight up. This 
gives the plane a more realistic move¬ 


ment and makes unrealistic, 180-dcgrce 
hairpin turns impossible. 

To make a 180-dcgree turn, you 
must first press a key indicating the di¬ 
rection of turn. For example, if you are 
traveling duo East (left to right) and 
want to make a 180-degrcc turn to go 
due West, you must first press either "E” 
or “X” to indicate the upward or down- 
word turn. Pressing “S," the left direc¬ 
tional key, will have no effect. In a simi¬ 
lar way, the player using the right-hand 
side of the keyboard uses I, J, K, and M 
to move the plane. (If you have the over¬ 
lay for the Video Games Command 
Module, you might find it convenient to 
use.) 

Pressing the “F” and “H” keys will 
fire the guns, but only one shot can be 
fired at a time. Each shot has a limited 
range and cannot be carried over the 
edge of the screen to the opposite edge. 


You can’t terminate a bad shot; it must 
first go off screen. The limit of only one 
shot at a lime was placed in the program 
so that the computer could make accu¬ 
rate coincidence checks with objects 
moving fairly rapidly on the screen. 

Four levels of difficulty make the 
game easy enough for beginners and 
challenging enough to hold the interest 
of experts. The higher the level of diffi¬ 
culty, the faster the planes and shots 
will move. The option to fly a day or 
night mission will change the screen 
color to either light blue or black. 

Features of Extended BASIC 
Used in “Dogfight” 

For you 99’er readers who arc also 
programmers, Dogfight illustrates many 
of the features of Extended BASIC. 

Continued on p. 37 
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By Mark Moseley 


100 

no 

120 

130 

140 

ISO 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

530 

560 

570 

580 

590 

600 

610 

620 



************* 

t SPACE WAR * 

************* 

99'ER VERSION 9-81-1 
BY MARK MOSELEY 
CALL CLEAR 
YPR=50 
BPR=50 

CALL SCREEN (2) 

CALL CHAR<128,"0303030303030303") 

CALL CHAR (129, -COCOCOCOCOCOCOC **) 

CALL CHAR(120,"FOFOFOFOFOFOFOF") 

CALL CHAR<121,"FFFFFFFF") 

CALL CHAR (152, "O81C2A49O8O8O0O8” ) 

CALL CHAR(153,"08080808492AlC08") 

CALL CHAR(154,"00080402FF020408"> 

CALL CHAR(155,"00102040FF4020I“) 

CALL CHAR < 156, 11 1F0305091120408" ) 

CALL CHAR (157, “F8COA09088040201 ”) 

CALL CHAR (158, ”8040201 10903031F") 

CALL CHAR (159, ,, 0102048890AOCOF8 ,, ) 

A1*=CHR$ < 157) 8c ” "8<CHR* (152) V 

A2*=CHR*(159) V " “&CHR* C153)& H 

CALL COLOR(13,2,2) 

CALL COLOR(15,2,2) 

FOR . 1 = 1 TO 8 

CALL COLOR<T,2,2) ; 

NEXT I 

PRINT TAB (4) ; “PRESS ANY KEY TO BEGIN 1 ’: :::: 
DATA 3,6,.3,4,6,1,5,6,3,6,8,1,7,6,3,3,11,1,5, 
1,-^*, 15,2,5, 15,2,3, 19,o,7, 19,3 


pace War is a two-player game written in T1 BASIC. 
Each player has one rocket. The object of the game is 
to destroy your opponent by missile fire, or by either 
forcing him to crash with an asteroid or causing him 
to use up his allotment of fuel. 

You can fire missiles in any of the 8 directions 
selectable from each side of the split keyboard. 
Missiles emit a nerve gas that paralyzes any 
moving object on the screen until a hit is made 
or the missile goes out of range—i.e., off the 
screen. Firing a missile, however, does require 
an expenditure of fuel. 

Each rocket starts out with 50 units of fuel. 
One unit is subtracted for each move, and a 
missile shot costs 5 units of fuel, so you must try 
to move efficiently and shoot accurately. If you 
run out of fuel, the game ends and the other player 
receives 2 points. 

If your missile hits the enemy rocket, you score 5 
points. If you crash into an asteroid, your opponent re¬ 
ceives 3 points. And if you crash into each other, no 
points are awarded. 

Note: If you shoot an asteroid you lose 1 point but the game 
does not stop. 


Line Nos, 

150-180 

I. 190-370 


"!<CHR$ (156) 
"!<CHR* (153) 


1 1 


DAT A 3,23-3,5,24, 1-7,23-3-13, 14,5,9,21,2, 11, 
21,2,9,25,3,11,26,1,13,27,1 

DATA 3,10-5,3-12,3,3,14,5,3,17,5-4,19-3,4,23, 
3,9,14,4,11,16,2,9,18,4 

DATA 9,20,5,9,23,5,10,25,4,10,27,2 
FOR 1=1 TO 20 
READ A", B, C 

CALL HCHAR<A,B, 144,0 
NEXT I 

FOR 1=1 TO 13 
READ A,B,C 

CALL VCHAR(A,B, 144,0 
NEXT I 

CALL HCHAR<12-26,128) 

CALL HCHAR(12,27,129) 

CALL COLOR(15,16,16) 

CALL COLOR<13,16,2) 

FOR 1=1 TO Q 
CALL COLOR(I,16,2) 

NEXT I 

CALL HCHARU,2,120,29) 

CALL HCHAR(24,2,120,29) 

CALL VCHAR<1,30,121,24) 

CALL VCHAR(1,2,121,24) 

CALL COLOR(12,7,2) 


380-570 
580-660 * 

670-800 

810-1270 ’ 

1280-1350 

1360-1790 


1800-1880 


Note: 

If using a disk system, type 
CALL FILES(l) prior to 
RUNing. Even so, you still 
might encounter some con¬ 
ditions during play when 
the memory will fill and 
the program will halt. To 
eliminate this, you can de¬ 
lete ail the instructional 
PRINT statements. 


1890-2150 

2160-2240 


2250 

2320- 

2480- 

2550- 

2710- 


•2310 

■2470 

2540 

2700 

3460 


EXPLANATION OF.THE PROGRAM 

- \ - ■Space War ‘ - \\ ■ 


■ 4, - T . *4 • Vl * • I 'll * 

Clears screen, initializes fuel 50 units; makes 
black screen. » , t * ■ * :•" » .»•• ' u 

Definition of characters and colors'for title 
screen and instructions.',Characters 1,52-159 
are arrows-. 

Draws title screen. *,♦* : - 1 > * ■> » " -• 4 • 
Draws border and blinks colors until user 
presses^*?,’. '* \ t \\ , - \ 

Asks if user wants instructions, a rid .waits for 
response*.’* % ■ * »- 1 .". - . >■ •• •., y.V - 

Prints inkructidns invisably and makes white 
letters appear bn black screen. 

Clears screen, resets letters to white' on 'black 
and defines colors for game. '« ; ’ 

Defines characters for graphics. Characters* 
starting with R are the rockets in different di¬ 
rections; VS is for the missile; S indicates as¬ 
teroids, and D crashing graphics. ; ’ 

Clears screen for game, initializes variables and 
draws rockets. Al, B\ are coordinates for 
crashing; A, B, and C, D are the rocket’s coor¬ 
dinates. ' . 

Draws center asteroid, then 7 random asteroids 
making sure asteroids do not overlap. 

Receives players’ input. If a key has. been 
pressed, branches accordingly. If no key has 
been pressed, goes to the other player’s key¬ 
board input. Initializes variables. G indicates 
which player is doing something. V=1 when 
an asteroid has been hit, • .« _, \ 

Procedure when yellow rocket fires a missile, 
Procedure when yellow rocket moves. 
Procedure when blue rocket fires missile. 
Procedure when blue rocket moves. - 1 
Routines for moving the blue rocket different 
directions. . 
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Space War . .. from p. 27 

630 CALL KEY <0, T,S) 

640 IF S=1 THEN 670 
650 CALL COLOR(12,2,7) 

660 SOTO 620 
670 CALL CLEAR 
680 FOR 1=1 TO 8 
690 CALL COLOR(I,2,2) 

700 NEXT I 

710 PRINT ”INSTRUCTIONS?<Y OR N: 

720 FOR 1=1 TO 8 

730 CALL COLOR <1,16,2) 

740 NEXT I 

750 CALL KEY <0,T, S) 

760 IF S=0 THEN 750 
770 FOR 1=1 TO 8 
780 CALL COLOR < 1,2, 2) 

790 NEXT I 

800 IF T=78 THEN 12B0 

810 PRINT TAB <B >;"< SPACE WAR *" 

320 PRINT TAB < 4); "A GAME FOR TWO PLAYERS”:: 
830 PRINT "THE OBJECT OF THIS GAME IS” 

040 PRINT "TO DESTROY YOUR OPPONENT BY” 

850 PRINT "MISSILE FIRE OR BY FORCING” 

860 PRINT “HIM INTO AN ASTEROID.":: 

870 PRINT TAB(11);"* KEYS 

880 PRINT "TO MOVE YOUR ROCKET, PRESS" 

390 PRINT "KEYS AS SHOWN BELOW:" 

900 PRINT "PLAYER 1 ", "PLAYER 2":: 

910 PRINT TAB(2> 5 -A1*;TAB(16> :A1* 

920 PRINT TAB(3)?"W E R";TAB<17);"U I 0" 

930 PRINT TAB<7> ; CHft* < 155) S< M S D "S<CHR* ( 154 ) ; 

TAB (16) ;CHR* U35)&" J K "ScCHR* < 154) 

940 PRINT TAB (3) ; "Z X C" ; TAB <17 )5 "N M . «• 

950 PRINT TAB <2> ; A2t? TAB < 16) ? A2'$: 2 
960 PRINT "PLAYER 1 USES 0 TO FIRE" 

970 PRINT "AND PLAYER 2 USES P." 

980 PRINT "PRESS ANY KEY TO CONTINUE" 

990 FOR 1=1 TO 3 
1000 CALL COLOR(1.16,2) 

1010 NEXT I 

1020 CALL COLOR<16.16.2) 

1030 CALL KEY <0, T, S > 

1040 IF S«0 THEN 1030 
1050 CALL COLOR(16.2,2) 

1060 FOR 1=1 TO 3 
1070 CALL COLOR(1,2.2) 

1080 NEXT I 

1090 PRINT TAB(9);"# ASTEROIDS 

1100 PRINT "THIS WAR TAKES PLACE IN AN" 

1UO PRINT "ASTEROID BELT. YOU CANNOT” 

1120 PRINT "SHOOT THROUGH THEM, AND" 

1130 PRINT "RUNNING INTO ONE WOULD BE” 

1140 PRINT "FATAL.":: 

1150 PRINT TAB(9);" * MISSILES 

1160 PRINT "“ r HE MISSILES CAN BE FIRED AT" 

1170 PRINT "ANY ANGLE. THEY EMIT A GAS" 

1180 PRINT "THAT PARALYZES ANY MOVING" 

1190 PRINT "OBJECTS ON THE SCREEN FROM" 

1200 PRINT "THE TIME THAT IT WAS FIRED" 

1210 PRINT "UNTIL IT HITS OR DISAPPEARS.":::: 
1220 PRINT "PRESS ANY KEY TO CONTINUE” 

1230 FOR 1=1 TO 8 
1240 CALL COLOR(I,16,2) 

1250 NEXT I 

1260 CALL KEY(O.T.S) 

■1270 IF S=0 THEN 1260 
1280 CALL CLEAR 
1290 FOR 1=1 TO 8 
1300 CALL COLOR(I,16,2) 

1310 NEXT I 

1320 CALL COLOR(9,5,2) 

1330 CALL COLOR(10,11,2) 

1340 CALL COLOR(11.16,2) 

1350 CALL COLOR(14,7,2) 

1360 RU«= ,< 0808081 ClC3E2A22” 

1370 RD*="222A3E1C1C080808" 

1330 RR*="C000E0387F3SE" 

1390 RL*=“0000071CFE1C07” 

1400 RUR*="0102147B9C28081" 

1410 RUL*=”8040281E39141008” 

1420 RDR$="1OOS289C78l40201" 

1430 RDL*=”081014391E28408Q" 

1440 "OOOOOO1818" 

1450 S1$="7F7F3F3F1FQF03" 

1460 S2*= ,J FEFEFCFCF8F0C" 

1470 S3*="00030F1F3F3F7F7F" 

1480 S4t=”00C0F0F8FCFCFEFE" 

1490 DS="995A3CFFFF3C5A99" 

1500 D1*="010204081020408" 

1510 D2S="8040201008040204" 


3470-4740 Routines for shooting missile different direc¬ 
tions. 

4750-5500 Routines for moving yellow rocket different 

directions. ' 


1520 

D3S=’ 

•1818181818181318" 

1530 

D4S=* 

1 OOOOOOFFFF * 

1540 

CALL 

CHAR(96,RU*> 

1550 

CALL 

CHAR<97,RD*> 

1560 

CALL 

CHAR(98,RR*) 

1570 

CALL 

CHAR<99,RL*) 

1580 

CALL 

CHAR < 100, RUR*> 

1590 

CALL 

CHAR(101.RUL*) 

1600 

CALL 

CHAR(102,RDR*) 

1610 

CALL 

CHAR<103,RDL*> 

1620 

CALL 

CHAR C104,RU*> 

1630 

CALL 

CHAR(105.RDS) 

1640 

CALL 

CHAR(106,RR*> 

1650 

CALL 

CHAR(107,RL$> 

1660 

CALL 

CHAR(108.RUR*) 

1670 

CALL 

CHAR<109,RUL*) 

1630 

CALL 

CHAR(110.RDRS) 

1 690 

CALL 

CHARdll^RDLI) 

1 700 

CALL 

CHAR <112,B*> 

1710 

CALL 

CHAR<136,D*) 

1 720 

CALL 

CHAR<137,Di*) 

1730 

CALL 

CHAR <138, D2*> 

1740 

CALL 

CHAR(139,D3S) 

1750 

CALL 

CHAR(140,04*) 

1760 

CALL 

CHAR <144.Sl*> 

1770 

CALL 

CHARM 45. S2*> 

2 780 

CALL 

CHAR<146,S3*) 

1790 

CALL 

CHARM 47, S4*) 

1800 

CALL 

CLEAR 

1810 

A1 =0 


1820 

B1=0 


1330 

A= 12 


1840 

B=3 


1350 

C= 12 


1360 

D=30 


1870 

CALL 

HCHAR(A,B,98) 

1880 

CALL 

HCHAR< C,D• 107) 

1890 

CALL 

COLOR <15. 16,2) 

1 900 

CALL 

HCHAR <13, 16, 144) 

1910 

CALL 

HCHAR(13,17,145) 

1920 

CALL 

HCHAR<12,16,146) 

1 930 

CALL 

HCHAR <12, 17, 147) 

1940 

FDR 

[=1 TO 7 

3 950 

RANDOMIZE 

1 960 

SH=INT <20*RND>+3 

1970 

SV=INT<23*RND> 4-5 

1980 

FOR 

11=0 TO 1 

1990 

CALL 

GCHAR < SH.SV+I1.p) 

2000 

GOSUB 6210 

2010 

IF V= 

=1 THEN 2090 

2020 

NEXT 

I 1 

2030 

FOR : 

11=0 TO 1 

2040 

CALL 

GCHAR(SH-1,SV+I1,P> 

2050 

GOSUB 6210 

2060 

IF V : 

=1 THEN 2090 

2070 

NEXT 

I 1 

2030 

GOTO 

21 10 

2090 

V=o 


2100 

GOTO 

1950 

2110 

CALL 

HCHAR(SH« SV.144) 

2120 

CALL 

HCHAR<SH,SV+1,145) 

2130 

CALL 

HCHAR <SH—1,SV,146) 

2140 

CALL 

HCHAR(SH-l.SV+1,147) 

2150 

NEXT 

I 

2160 

CALL 

KEY <2,K1,S1) 

2170 

6=0 


2180 

v=o 


2190 

IF SlOO THEN 2250 

2200 

CALL 

KEY(1,K,S) 

2210 

G=0 


2220 

v=o 



Continued on p. 39 


5510-5830 

5840-5980 

5990-6040 

6050-6130 

6140-6200 

6210-6260 

6270-6330 


Sounds crashing noise and flashes graphics. 
Calculates and- prints scores and ending re¬ 
marks. 

Prints option to play again and receives user 
input. ; . 

Subroutine to check if asteroid is shot; if so, 
score is decreased one point.* ,! ' ‘ 
Subroutine to check if rocket is hit or if 
rocket hits asteroid. ; ; ' ’ j ; 1 • 

Subroutine to check if asteroid is in that posi¬ 
tion; if so, V=1. 

Procedure if rocket runs out 
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The Third-Party 
Pascal Development System 

SOME USER IMPRESSIONS 


By F. T. Berkey 


A nyone who has programmed in 
BASIC is well aware of the limita¬ 
tions imposed by that language in 
writing large applications programs. In¬ 
terpreted BASIC is slow and it is virtual¬ 
ly impossible to directly transfer BASIC 
code from brand X to brand Y micro¬ 
computer without tedious and time con¬ 
suming modifications. Furthermore, the 
logic in large BASIC programs is diffi¬ 
cult, if not impossible, to follow. In ad¬ 
dition to BASIC, most home computer 
manufacturers now make available one 
or more structured languages. Texas 
Instruments intends to follow their lead 
and will market a UCSD Pascal system 
in late 1981. For several months Texas 
Instruments has been offering a third- 
party Pascal development system for in¬ 
dividuals or firms interested in develop¬ 
ing and marketing home computer soft¬ 
ware. The introduction of this develop¬ 
ment system appears to have marked a 
turning point in Tl corporate attitude 
toward third-party software. The devel¬ 
opment system gives the third-party 
software developer the capability of de¬ 
veloping software in both Pascal and 
TMS9900 assembly language. As ex¬ 
plained by Gary Kaplan in a previous 
issue of 99'er Magazine (May/June, P. 52 
to p. 56), Pascal P-code is transportable 
and can be executed on any other sys¬ 
tem using the UCSD Pascal system. This 
opens up a market far exceeding that of 
TI-99/4 users alone. A further advantage 
is that Command Modules can be pro¬ 
grammed ill" cither Pascal or TMS9900 
assembly language. Before reading what 
follows, I strongly advise you to scan 
the two articles which discuss UCSD 
Pascal and third-party development 
systems. 

The Hardware 

So what exactly comprises the UCSD 
Pascal development system? The major 
piece of hardware presently associated 
with the development system is a 13" 
by 17” by 3" black box which contains 
the 32Kbytc expansion RAM and'auxil¬ 


iary GRAM (Graphics Random Access 
Memory). In addition to this “Super 
Memory” box, you will need a disk con¬ 
troller and two disk drives. (I am told 
that you can get by with one drive but I 
wouldn't recommend it.) Of course, 
you’ll also need a console and a monitor 
or RF modulator and TV. The memory 
box is connected to the system bus by a 
5 inch, 44 wire cable. Due to the ex¬ 
tremely short length of the cable, I found 
it necessary to place my disk controller 
and RS-232 interface on top of this 
memory box and to use the lid of the 
shipping carton to support the console! 
Increasing the length of the cable would 
have saved a lot of frustration. [The 
“Super Memory” box will not be a part 
of the production version. The function 
of this hybrid RAM expansion/P-code 
peripheral will be filled by two separate 
units: the 32K RAM Expansion, and a 
P-Code peripheral-Ed.] 


The Software 

The present UCSD Pascal software 
release in the hands of third-party devel¬ 
opers is Version 2.0, but Tl intends to 
upgrade to SofTech Microsystem’s most 
recent release (V4.0) in the near future. 
Tl has included sound, speech, sprites 
and color graphics in its implementation 
of UCSD Pascal. As might be expected, 
the Pascal procedures and functions 
bear a close resemblance to similar func¬ 
tions incorporated in Tl Extended 
BASIC for programming these same en¬ 
hancements. In many cases, the parame¬ 
ters in the Pascal argument list are essen¬ 
tially identical to those of the compara¬ 
ble BASIC subprogram. 

The software is provided on three 
floppy disks and in one Command 
Module. The floppies contain various 


programs associated with Pascal, the 
operating system, the compiler, and the 
assembler; the Command Module con¬ 
tains a boot utility, TIBUG (a monitor 
program) and a downloader. Before dis¬ 
cussing the software, I should mention 
that the UCSD Pascal system was de¬ 
signed to be all things to all microcom¬ 
puters. Thus, the UCSD P-system is 
equipped to support a wide variety of 
terminalsoperatingwith several different 
microcomputers. 

In its present implementation of 
UCSD Pascal, Texas Instruments has 
seen fit not to include all the various 
bells and whistles that the original sys¬ 
tem supplies. [Version 4.0 re-implements 
the bells and whistles, such that a wide 
variety of terminals can be used. It is 
much more flexible in dealing with I/O.] 
There are both good and bad aspects to 
this decision: Texas Instruments has 
spared the third-party developer the 


effort needed to configure the system to 
a particular type of terminal—obviously 
assuming that the standard console 
would be used. Nor is it necessary to use 
the boot-strap loader utility, since this is 
provided in ROM by the Pascal Com¬ 
mand-Module. 

Some, but not all, of the utility pro-‘ 
grams incorporated in the UCSD system 
are implemented by Tl. The UCSD utili¬ 
ties which are not transparent to the 
user are LIBRARIAN.CODE and 
PATCH.CODE . 

The librarian utility allows the user 
to add compiled code to the system li¬ 
brary. PATCH is an extremely useful 
utility which enables the user to examine 
and/or modify a single byte from any 
data or code file. I have used this utility 
for two purposes; the first use was to 
modify the RS-232 parameters in one of 
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11 In BASIC, this program executed in 340 seconds 
(all primes between 3 and 6000) while the Pascal 
version required only 22 seconds . . . some 15 
times faster than BASIC.* 















TI-99/4 Software 

• Astronomy Programs 

• Matrix Routines 

. ¥ 

• Linear Equation Solver 

• Fourier Transform 

• Music Analysis/Synthesis 

• Curve Fitting Routines 

• Hyperbolic Functions 

• Two-Dimensional FFT 

• Data F itter 

Programming in Tl BASIC 
Extended BASIC and UCSD Pascal 

Programs also Available for the 
TRS80 in Level 2 BASIC 

For further information Write: 

> 

Eastbench Software Products 
1290 Cliff side Drive 
Logan, Utah 84321 
Tel: (801) 753-1084 


THE MICRO HOUSE 

Complete TI-99/4 Line 
Discount Prices' 


Extended BASIC 
The Attack 
Line Editor (cassette) 

Line Editor (disk) 

Mail List Merge 

Add $5 for Shipping & Handling 

For complete price list write: 

THE MICRO HOUSE 
527 Simonet Street 
Green Bay, WI 54301 

Tel. (414) 432-2871 


COUNT 

Small Business System 

• OwMral L«dg*r (profeasionally approved) 650 

• Account! Payable (writes checks) 300 

| • Accounts Receivable (prepares bl I Is) 300 

Inventory £1400 items per disk) 300 

Mailing Hat (renewal letters) 650 


Mini Computer Performance 
At Micro Price* 


Only For The 99/4 


For Information on dealer 
program, write or call. 

To order, sehd check to: \ 

PIKECREEK N 
COMPUTER CO., INC. 

2 Galaxy Drive 
Newark, Delaware 19711 
(302) 239-5113 
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the system files. My second application 
was to examine and fix a BASIC disk 
whose directory had been inadvertently 
clobbered and which was therefore un¬ 
readable by either the Disk Manager 
module or a BASIC directory program. 
To fix the disk directory, it was necessa¬ 
ry only to modify several bytes at the 
beginning of the disk. 

Three other utilities have been writ¬ 
ten by Tl for specific application to the 
TI-99/4 system; these are DFORMAT, 
X9900 and TEXTXFER. DFORMAT is 
a utility which is used to initialize a 
new disk. In their User’s Document, Tl 
recommends making back up copies of 
the system disks before embarking into 
the UCSD system, and guides users 
through this procedure using the Disk - 
Manager Command Module to initialize 
the disks. Once familiar with the system, 
this procedure can be eliminated and 
you can initialize disks by executing 
DFORMAT.CODE and zeroing the di¬ 
rectory file from the filer utility. 

The?, utility X9900 converts 9900 
Assembly language code to an ASCII 
format. To utilize Assembly language 
subroutines in Extended BASIC pro¬ 
grams, they must be formatted in 256 
byte blocks. The utility TEXTXFER 
performs the transformation from 512 
byte blocks (UCSD standard) to 256 
byte blocks. Note that TEXTXFER’s 
utility is not limited to Assembly lan¬ 
guage code; using TEXTXFER I have 
converted a Pascal text file so that it 
could be read by a BASIC program. 

The USCD system provides the user 
with a screen editor, a file manipulation 
utility, a library utility, a Pascal com¬ 
piler, and a TMS9900 assembler. I have 
found that the UCSD system is easy to 
learn and that it provides me with many 
of the features available on a large time- 
share computer system. An Assembly 
language debugger, TJBUG.can be called 
from the Command Module menu. It 
can be utilized only with a modified 
RS-232 interface box. The downloader 
utility (also selected from the Command 
Module) uses a simple protocol to ac¬ 
cept data via the RS-232 interface. Tl 
indicates that UCSD Pascal can be down¬ 
loaded to the TI-99/4 ... if one happens 
to have a Tl series 990 minicomputer 
handy! I have not had any direct expe¬ 
rience with either of these utilities. [The 
new PATCH utility allows you to modi¬ 
fy the parameters of the RS-232 inter¬ 
face that are stored in one of the system 
files. In the more convenient 4.0 system, 
those parameters are always in RAM 
and are readily changed-Ed.] 

The screen editor is relatively easy to 
use but has limitations which must be 
recognized. For example, the editor’s 
buffer will hold 10,240 bytes before be¬ 
coming full and not allowing you to in¬ 
sert any further text. This corresponds 
roughly to 400 lines of code, so it is 
not' a severe constraint. And, it is not 


a restriction on the size of programs 
which may be written in Pascal, since 
there is a compiler option (an include 
directive) which allows you to include 
another source file when compiling a 
large program. Only one of the two edi¬ 
tors provided by the UCSD system is 
supplied by Tl; YALOE, a line oriented 
text editor, is not included as part of 
the Tl Pascal development system, al¬ 
though I believe it would be more useful 
in a text editing situation. 

Some of you may have read of the 
TURTLE program which provides a 
graphics capability on some UCSD sys¬ 
tems. TURTLE is not a standard feature 
of UCSD Pascal, but is an enhancement 
added to many systems. Texas Instru¬ 
ments has not included turtle graphics, 
feeling that the graphics enhancements 
provided by sprites and color are more 
powerful. (Note that the TURTLE pro¬ 
gram is incorporated in Tl LOGO.) 

The Documentation 

The large quantity of literature that 
accompanies the development system 
includes (1) UCSD Pascal Users Manual] 
(2) TMS9900 Assembly Language Pro¬ 
grammer's Guide] (3) 9900 Family Sys¬ 
tems Design and Data Book] (4) TI-99/4 
Technical Data Manual; (5) The UCSD 
P-System Supplemental User’s Docu 
ment for Use with the TI-99/4 Com¬ 
puter] (6) File Management Specifica¬ 
tion for the Ti-99/4 Home Computer] 
(7) a Home Computer system memory, 
CRU and interrupt mapping specifica¬ 
tion; (8) a TIBUG manual; (9) a set of 
notes describing the peripheral devices 
such as the sourid generator chip and 
video display chip. Conspicuous in its 
absence from this list is Bowles’ Guide 
for the UCSD Pascal System and the 
Pascal User Manual and Report by J ensen 
and Wirth. In order to understand all 
the nuances of the UCSD system, care¬ 
ful reading of Bowles’ book is a must. 
[The Bowles' book is available from the 
99’er Bookstore-Ed.] For the ROM- 
based version of Pascal, however, Tl is 
preparing five manuals which are more 
oriented to the home computer user 
than either of the books mentioned 
above. 

The supplemental User's Document 
written by Tl. is a “how-to” manual 
which is terse at best. Its nine pages 
leave much unsaid, and some of what is 
said contains errors. It appears to be a 
document produced on short notice—a 
shortcoming that I hope will be cor¬ 
rected in the immediate future. An 
example of what has been left unsaid is 
the procedure that must be followed to 
exit from the operating system. During 
my initial experience with the system, I 
found that somehow I was clobbering 
the directory on the system disk. Having 
done so, I found it impossible to boot 
the system, and necessary to recopy the 
system disk. I then discovered a proce- 
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AAAA SCORE —00000 


ALIEN 


Blast ‘down alien saucers 
and the “Ultimate Alien” 
to score. Five lives against 
the endless alien army. 
Fast action, music, graph¬ 
ics. Difficulty increases 
with skill. 


FUEL«300 


SCORE=00 


MAY THE FORCE BE WITH YOU 


X-WING 

PILOT 

Squads of TIE-Fighters 
are escaping from a raid 
on your rebel base. Your 
mission: Destroy all with 
limited fuel, or “Good- 
Bye Rebel!” Graphics. 
Sound. 3 skill levels. 


$12.95 -cassette 
$16.95 ^diskette 


1 = M0VE 
4*T0RP 

?»ODDS 


2=TURN 

•■PHASER 

••STATUS 


i-SHl HO 

•■PROBE 

•■OBSTRUCT 


li.i i n i i i i i i i i i i i i i li n 

INVADE 
THE EMPIRE 

Commanding a starship, 
you must destroy 4 enemy 
vessels to gain control of 
sector ON-9. This chal¬ 
lenging space game re¬ 
quires skill & strategy. 
Graphics, Sound. 3 skill 
levels.. 


PROGRAMMED IN Tl BASIC; 16K 
DOCUMENTATION INCLUDED 
> joysticks optional 


Dealer Inquiries Invited 


send check or money order to: 

THE SOFTWARE EXCHANGE GROUP 

P O BOX 97 

NORTH CHILI. NY 14514 
(716) 594-9474 



dure to avoid this problem: From the 
outer shell of the operating system T 
type H (for Halt) and then press SHIFT 
' Q. This returns me to the standard Tl 
graphic screen. I have since learned that 
the H command is not supported in 
V2.0 (where did it say that in the User’s 
Document?), and that exiting from the 
filer utility should gracefully close all 
files! I might also note that the H com¬ 
mand is not discussed in the UCSD Pas¬ 
cal Users Manual —perhaps because it 
isn’t supported!- [The H(alt) function is 
fully operational in Version 4.0, and is 
equivalent to SHIFT Q in Tl BASIC 
-Ed.] 

A useful feature of the development 
system is the ability to assign portions 
of the GRAM and VDP RAM as “execu¬ 
table disks.” Since these “disks” disap¬ 
pear each time the system is rebooted, 
their primary use is in executing code al¬ 
ready compiled. Using the system filer, 
a user can transfer an executable code 
file to.either of the executable disks and 
have the code executed without access- 
. ing either of the floppy disk drives. 
[RAM Executable Disk is a feature of 
Version 2.0 which will be made obsolete 
by Version 4.0 . Developers should not 
, depend on the existence of this construct 
for commercial use, since the consumer 
version won’t need or support this—Ed.] 

Software developers can write assem¬ 
bly language programs with the third- 
party development system, and call 


them frpm Pascal or Extended BASIC 
programs. The first stumbling block I 
encountered in writing an assembly 
language program was that the assembler 
directives listed in the TMS9900 Pro¬ 
grammer’s Guide cannot be used with 
the UCSD assembler. Instead, the UCSD 
system uses a very similar set of direc¬ 
tives which must all be preceded by a 
period. This point is not documented in 
the literature supplied by Tl, but be¬ 
comes obvious after a careful reading of 
the UCSD Users Manual and some ex¬ 
perimentation. 

In all fairness to Tl, it must be em¬ 
phasized that the third-party develop¬ 
ment system is a limited production sys¬ 
tem available only through Texas Instru¬ 
ments and not intended for the general 
home computer market. In order to give 
third-party developers an opportunity 
to become familiar with the UCSD Pas¬ 
cal system, a developmental system was 
introduced onto the market, in a rela¬ 
tively short period of time. As a result, 
portions of the system are still in a state 
of flux. [Tl engineers are working over¬ 
time to complete the ROM 4.0 Pascal 
System. The purpose of the present hy¬ 
brid system was to give developers 
enough lead time in which to ready 
their wares for release prior to the avail¬ 
ability of consumer hardware that 
creates demand for those wares—Ed.] 

And how does it run? Perhaps a use¬ 
ful indication is a comparison of the 


execution time required for calculating 
prime numbers. In order to make such a 
comparison, I utilized a benchmark pro¬ 
gram that uses neither multiplication 
nor division (see Byte, September 1981, 
page 180). In BASIC, this program exec¬ 
uted in 340 seconds (all primes between 
3 and 6000) while the Pascal version re¬ 
quired only 22 seconds. Thus, in this 
particular example, Pascal executes 
some 15 times faster than BASIC. 

As indicated by the title, this article 
was not intended to be a comprehensive 
review of the UCSD Pascal system but 
rather to convey user impressions after 
several weeks of experience. In using the 
system, I have often been frustrated by 
' the lackofdisk space,particularly during 
program compilation. The compiler, 
linker, editor and library are large chunks 
of code which -must be accessible to the 
system and therefore occupy considera¬ 
ble disk space. Solutions to this problem 
are to add a third disk drive, to double 
the density of the existing drives or to 
use eight-inch floppy drives. Another 
frustration I have encountered is an 
inability to stop a program once it has 
started executing. Neither the ‘break’ 
nor ‘stop’ keys have any effect on pro¬ 
gram execution. Turning the system off 
during execution tends to leave one 
with open files! I have thus far found no 
method to stop program execution once 
begun. 

Continued on p. 37 
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Precautions & Programming Ideas 






Murphy's Law and the 


Home Computer 

By Samuel D. Pincus 


NOW WHAT? 

By Regena 


e 


Murphy's Law and the Home Computr By Samuel d. Pincus 


“Anything that 

CAN GO WRONG, 

WILL GO WRONG” - Murphy's Law 


“And at the worst 
possible time.” 


Pincus's corollary 
to Murphy's Law 


T he significance of Murphy’s Law is 
etched into the hearts and minds 
of all professional programmers. 
As an outgrowth of their crucial need to 
prevent costly errors and protect their 
sanity, these professionals have devel¬ 
oped a set of rules for minimizing the 
expected problems inherant in any pro¬ 
gramming project. In this article, I’ll ac¬ 
quaint you with a few of these pro¬ 
verbial “tricks of the trade” that you 
can adopt when working with your own 
home computer. By making them an 
automatic part of your programming 
procedure, you will minimize the havoc 
Murphy ustially wreaks in any computer 





environment. Consequently, your pro¬ 
grams, your mental health, and your 
wife’s (or husband’s) peace of mind will 
all be that much better for it. .. 

Rule # 1 — Name that Variable ! 

Most beginning programmers select 
simple, two-letter variable names like 
XI, X2, X3, etc. The major problem 
with this kind of naming scheme is that 
you tend to forget what each one repre¬ 
sents. Fortunately, both of Tl's BASIC 
languages allow you to use long variable 
names. Unfortunately, using long names 
tends to slow down a BASIC language 
program. The solution is to pick a 4-or 
5-letter name that adequately identifies 
the variable it represents. For example, 
a program, that needs a loop counter 
could have the name “LOOP” for the 
counter. If you pick an abbreviation, 
make sure that it is a commonly used 
one. Remember that Murphy just loves 
strange abbreviations: the odds are that 
you will spell it wrong at least once in 
your program! So keep a running list or 
chart of variable names and their mean¬ 


ings in front of you while you code. 
Avoid the temptation to add a variable 
to your program without updating the 
chart. A poorly maintained chart is worse 
than no chart at all because it can lead 
to a false sense of security-having you 
believe that a “new” variable name 
hasn’t been used before. [When picking 
names for variables, you should also be 
careful to avoid reserved words used in 
BASIC. So if indoubt, check your User’s 
Reference Guide - Ed.] 

Rule #2 — Save that Program ! 

Get used to SAVEing your program 
after typing in about 50 lines of code if 
your storage medium is a floppy disk, or 
75 lines if cassette tape. Keep your labels 
up-to-date or else you may get confused 
in case of trouble. I always place the 
version number “V.XX” on the cassette 
before recording on it. When recording 
is complete, I do not verify (with the 
“DO YOU WANT TO CHECK?” feature) 
the cassette recording. Instead I just flip 
the cassette over and cross out the ver¬ 
sion number on the new top side. It is 
not worth verifying the recording until a 
significant number of lines have been 
coded in. Flipping the tape over as soon 
as the program has been SAVEd makes 
sure that I don’t accidently record over 
my last SAVE. For disk users, I suggest 
that they SAVE their programs under 
the names V01 and V02 alternately so 
that they don’t fill up a disk. 

Continued on p. 56 
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By Regena 


3 *.- 


C ongratulations, you’re the new owner of a TI-99/4(A) 
Home Computer!! Now what? You have it all unpacked 
and need to know what to do with it, right? Fortunate¬ 
ly, you have an issue of the 99'er Magazine, and we’ll give 
you a few ideas to start you on your way. 

Of course you can plug in a variety of Command Modules 
that can teach you exercises, challenge you to a chess game, 
help with your finances, or do a multitude of other things. 
But the real fun and challenge is making that machine do 
what you want it to do. 

By the way, be sure you have the dual cassette cables and 
a good cassette recorder (or the disk system if you’re really 
into computers) because you’ll want to save your valuable 
programs. ' 

When I got my computer, many friends asked, “Well, 
what can it do?” And the next questions were “Can you 
balance your checkbook with it?” “Can you file names and 
addresses?” “Can you keep track of other things such as 
household inventories?” “Can you do your income taxes?” 

The TI-99/4(A) is so versatile you can do all of these home 
applications plus a myriad of business and professional appli¬ 
cations. You’ll soon be “hooked” on your computer and be 
one of those computer nuts who stays up all night saying, 
‘Til just make one more change in this program ...” 

Let me just give you a few ideas for programming and 
then you’ll be on your own. 

Most households own a calculator. Now, with a calculator 
you just punch in numbers and symbols and get an answer. 
Your computer can manipulate numbers too, but it can also 
interact with you using words. And it can do the same pro¬ 
cess over and over again. You can also save your program and 
the data and use it again a month or a year later. You’ll soon 
find your computer is a valuable household addition. 

To make an interactive program you’ll need to use PRINT 
or DISPLAY and INPUT. PRINT and DISPLAY do the same 
thing on the screen in Tl BASIC. You probably have dis¬ 
covered how to PRINT messages, so let me just give you one 
hint here. A colon in a PRINT (or DISPLAY) statement means 
“go to the next line.” The screen will be much easier to read 
if you have a few spaces here and there rather than all the 
printing jammed up. You may use more than one colon in 
the statement to get more blank lines. Here's an example. 


100 CALL CLEAR 
110 PRINT “THIS IS A SAMPLE.” 

120 PRINT : “HELLO” : “HOW ARE YOU? 
130 PRINT “START SPACING HERE.” 

140 PRINT : “I SKIPPED ONE LINE.” 

150 PRINT : : “I SKIPPED TWO LINES.” 



y y 


I usually start a prograhj by clearing the screen. Line 110 
• prints a message. You’ll notice the line actually prints then 
moves up one line. The first colon in Line 120 says “go to 
the next line” then print HELLO. Another colon—so HOW 
ARE YOU? starts on the next line, then you “go to the next 
line” four times. The number of blank lines is the number of 



colons at the end of the line, minus one. If the colons are at 
the beginning of a statement, the number of blank lines is 
equal to the number of colons. Don’t get confused—just 
RUN this program and experiment a little to learn how to 
use the spacing effectively. 

INPUT is how you enter something from the keyboard 
while the program is running. You may PRINT a message 
then INPUT like this: 

% * 

% 

* 

100 PRINT “WHAT IS YOUR NAME?” 

1 10 INPUT NAMES 

Remember, string variables need $ at the end of the variable 
name; numbers do not. This program will print the message 
.then on the next line, print a question mark, blink the cursor 
and wait for the user to enter something. 

INPUT also allows a prompting message: 

100 INPUT “WHAT IS YOUR NAME? ”:NAME$ 

This time the cursor will blink in the space immediately fol¬ 
lowing the prompt message and print your response there as 
you key it in. 

. To program responses, you generally use INPUT. However, 
on a one-stroke answer I like to use CALL KEY. The user 
will just have to press one key (won’t have to ENTER ),and 
you can block out unacceptable answers. For example, sup¬ 
pose you need a yes or no answer. 

400 PRINT “ANSWER Y OR N” 

410 CALL KEY(0 , KEY , STATUS) 

420 IF KEY=78 THEN 500 

430 IF KEY«=^89 THEN 410 

440 Continue here for “Yes” answer 


500 Continue here for “No” answer 

99’er Magazine Sept/Oct 1981 33 


V. 

























3 NEW RELEASES 

from 



camputErgraphic/' 


All Programs 

Tl 99/4 CASSETTE FORMAT 

Kmm 

Fascinating computer word game. Players form cross 
words from 8 random letters offered by computer. 
Colorful Graphic playing board displayed. Scores are 
calculated and shown in personalized color Box Scores 
Extra Bonus. Color Squares in game. Exciting and easy 
to play. A PrP favorite. 






‘"STS.'T'.iiS - 




- 9 -- 


In 



Outstanding use of Color Graphics show computer 
analysis of Bio Rhythms based on any birthdate since 
1801.'Displays mental, physical, and emotional status 
for any given day. Graphics dramatically change to 
show status of succeeding days. Same program con¬ 
tains a compatibility analysis for any two people. 
Results shown in spectacular color graphics with sound. 
Humorous comments. Exciting program from PrP. 




Computer, as Dealer, plays against 1 or 2 Players. 
Excellent Color Graphics actually display the dealt 
cards on the screen. Dealer's second card remains 
hidden until players pass or take hits. Up to 5 cards 
displayed for dealer and both players, all at the same 
time. Cards are dealt without repeats from 52 card deck. 
Fun, realistic. A PrP winner. 


Mail Coupon and'Check or 
Money Order To. 



camputergraphic/' 


901 Cherrydale Street 
Lake Charles, LA 70605 




Mark An X By Programs Ordered 
j' Scribble □ Biorhythm O Blackjack □ 

Single Program_ 

Any 2 Programs_ 

Any 3 Programs___ 


7.95 each 
6 95 each 
5 95 each 


Please Send Programs Marked Above To: 


\ 


Name 

Street 


[ 

i 

]_ City 


St. 


Zip 




Only Y or N is accepted; any other key pressed is ignored. 
<\nother example is: 

400 PRINT “CHOOSE 1 , 2 , 3 , OR 4” 

410 CALL KEY(0 . K , S) 

420 IF K<49 THEN 410 
430 IF K>52 THEN 410 
440 ON K - 48 GOTO 1000,2000,3000,4000 

Only 1, 2, 3, or 4 will be accepted, then the program will 
branch to the appropriate section. Remember that the K 
value in the CALL KEY statement is the ASCII code number 
of the character pressed. 

Now you are armed with some basics of interactive pro¬ 
gramming. Let’s try some specifics and answer those ques¬ 
tions above. 

4 

Checkbook Balancing 

Ah-ha! That’s already in your User's Reference Guide } 
page 182 [page III-22 in the new Tb99/4A User's Reference 
Guide ]. j ust key that program in and add your own embelish- 
ments to make it your program. I like to take advantage of 
TI’s color and sound to enhance a program, so let’s add a little 
color at the beginning. Add 

115 GOSUB 500 

This means go down to Line 500 and do some stuff then come 
back. Now add Lines 500 to 660. A complete modified listing 
follows. Try it. Then adapt it to what you want. 

100 REM CHECKBOOK BALANCE 
110 CALL CLEAR 
113 GOSUB 500 

120 INPUT "BANK BALANCE* "5 BALANCE 
130 DISPLAY t"ENTER EACH OUTSTANDING" 

140 DISPLAY "CHECK NUMBER AND AMOUNT•" 

150 DISPLAY 

160 DISPLAY "ENTER A ZERO FOR THE" 

170 DISPLAY "CHECK NUMBER WHEN FINISHED." 

180 DISPLAY 

200 INPUT "CHECK NUMBERI "lCNUM 
210 IF CNUM-O THEN.250 
220 INPUT "CHECK AMOUNTi "iCAMT 
230 CTQTAL-CTOTAL-CAMT 
240 6OT0 200 

250 DISPLAY i"ENTER EACH OUTSTANDING" 

260 DISPLAY "DEPOSIT AMOUNT." 

270 DISPLAY 
DISPLAY 
DISPLAY 
300 DISPLAY 

320 INPUT "DEPOSIT AMOUNT? "aDAMT 
330 IF DAMT*0 THEN 360 
340 DTOTAL-DTQTAL+DAMT 
350 GOTO 320 

360 NBAL=BALANCE—CTQTAL+DTOTAL 
370 DISPLAY s "NEW BALANCE* “;NBAL 
300 INPUT "CHECKBOOK BALANCE: "sCBAL 
390 DISPLAY "CORRECTION^ NBAL-CBAL 

400 END 

500 CALL CHAR(96,"0") 

510 CALL CHAR(97,"OOOOFF“) 

520 CALL CHAR(98,"8618433402CC61") 

530 CALL COLOR(9,13,11) 

540 CALL HCHAR <10,6,96,18) 

550 CALL VCHARU 1,6,96,6) 

560 CALL HCHAR(11,7,98,5) 

570 CALL HCHAR(11,12,96,4) 

580 CALL HCHAR <11, 16, 97,8). 

590 CALL HCHAR(12,7,96,17) 

600 CALL HCHAR<13,7,97,17) 

610 CALL HCHARU3, 18,96,2) 

620 CALL HCHAR(14,7,97,17) 

630 CALL HCHAR(15,7,96,17) 

640 CALL HCHAR<16,7,96,9) 

650 CALL HCHAR<16,16,97,8) 

660 RETURN 


"ENTER A ZERO AMOUNT” 
"WHEN FINISHED." 


r 4 


As the program is written in the manual, there may be a 
few problems. There is no DIMension statement, so if you 
have more than ten outstanding checks or deposits you will 
get an error. Since there is really no need to even worry about 
subscripts, delete (N) in Lines 200, 210, 220, and 230 and 
(M) in Lines 320, 330, and 340. You may then also delete 
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660 IF K1=12 THEN GOSUB 990 
670 IF 32=0 THEN 820 

680 IF K2<>5 THEN 720 ELSE IF PI>3 AND PI<8 THEN 
P1=*P1-1 ELSE IF Pl<3 OR Pl=8 THEN Pl-Pl+1 


fr'.. 


>y . 




i'S*. 


690 IF'Pl-0 THEN Pl=8 
700 IF Pl*9 THEN Pl=t 
710 GOTO 800 

720 IF K2O0 THEN 760 ELSE IF PI >3 AND PI <7 THEN 
P1=P1+1 ELSE IF Pl<3 OR PJ=8 TH 
EN P1=P1-1 

730 IF P1=0 THEN Pl»8 
740 IF Pl-9 THEN Pl«l 
750 GOTO 800 

760 IF K2<>2 THEN 780 ELSE IF PI>5 THEN P1^P1-I 
ELSE IF Pl<5 AND PI>1 THEN Pl=Pl+l 


770 GOTO 800 

780 IF K2<>3 THEN 010 ELSE IF PI<5 AND P1>1 THEN 
PI=P1-1 ELSE IF PI >5 THEN P1*PI 4-1 





790 IF PI=9 THEN Pl-1 

800 CALL PATTERN<#2,<Plt4)+92>sa ON PI GOSUB 1110, 
1120,1130,1140,1150,1160,1170, 

1180 :: GOTO 820 

810 IF K2=l THEN GOSUB 1190 

820 CALL CQINC(#2,#3,3*V,PC ):2 IF PC=-1 THEN 1500 
830 CALL C0INC<#1,#4,3*V,PC)u. IF PC=-1 THEN 1350 
840 CALL COINC(#1,#2,2-5*V,PC):: IF PC=-1 THEN 
1220 

850 CALL SOUND<-4250,110,2,220,2,-8,2) 

860 IF SHI—O THEN 880 

870 CALL POSITION(#3,B3.B4)s2 IF B3<6 OR B3>186 ORl 
B4<8 OR B4>250 THEN CALL DELSPRITE(#3) 
si SH1*0 

880 IF SH2=*0 THEN 900 

890 CALL POSITION <#4.C3,C4 ):: IF C3<6 OR C3>186 ORl 
C4<8 CR C4 >250 THEN CALL DELS 
PRITE<#4):: SH2-0 
9no GOTO 500 

910 CALL MOTION(#1,0,0)2 s RETURN 
920 CALL ri0TI0N<#l,-V*.6, V*.6> : 2 RETURN 
930 CALL MOTION<#1,-V,0) 2 s RETURN 
940 CALL MOTION(#1,—V*.6,—V*■6)2 s RETURN 
950 CALL MOTION(#1,0,-V)2 t RETURN 
960 CALL MOTION(#1,V*.6,-V*.6)s; RETURN 
970 CALL MOTION<#l f V,0)2: RETURN 
980 CALL M0TI0N<#1,V*.6,V».6)i: RETURN 
990 IF SH t=»l THEN RETURN 

Continued on d. 36 
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Line 190 and change Line 240 to GOTO 200; and delete 
Line 310 and change Line 350 to GOTO 320. 

Remember what I said above about spaces, and insert a 
colon before the first quote mark on Lines 130, 250 and 370 
to make the screen easier to read. You may wish to add 
SOUND and red lines if the balance or correction is negative. 
Try your own ideas. 


Let’s show an example of this program. Key it in then 
RUN. Remember you need to use decimal fractions. 


AMOUNT: 2 
MEASURE: CUPS 
INGREDIENT: SHORTENING 



Name and Address File 

Another easy solution-find Issue 2 of the 99'er Magazine 
and use the “Electronic Home Secretary” program. What? 
You haven’t keyed it in yet?? I thought everyone grabbed his 
issue of 99'er and immediately keyed in <7// the programs!! 

You can probably use this program as is, or adapt it to 
your needs to make your address file, phone list, Christmas 
list, or even a wedding invitation list. You can add your 
printer to print your address labels if you want. 


AMOUNT: 2 
MEASURE: CUPS 
INGREDIENT: SUGAR 


AMOUNT: 2 

MEASURE: Gust press ENTER) 

INGREDIENT: EGGS 


AMOUNT: 1.5 
MEASURE: TSP. 

INGREDIENT: ALMOND EXTRACT 


Recipe Conversions 

How about recipes? Some people cook with a dab of this, 

I r I /■'I kit t a a a 


AMOUNT: 2 

MEASURE: TSP. , 

INGREDIENT: BAKING POWDER 


a glug of that, enough flour until it looks right, and cook it 
until it’s done. But a computer is more precise and will give 


AMOUNT: 4 
MEASURE: CUPS 
INGREDIENT: FLOUR 


you exact amounts. Try this program to convert a recipe. 


140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 INPUT 


»l 


& 


iAv- 


n, 


m 






too REM RECIPE CONVERSION 
110 CALL CLErf^R 

120 DIM AMT<20>,M*<20),ING*<20) 

130 PRINT "ENTER NUMERICAL AMOUNT" 

"< USE DECIMAL IF FRACTION)," 
"THEN ENTER MEASURE (C.TSP), 
"THEN ENTER INGREDIENT." 

I"ENTER 'O’ TO END RECIPE.”!! 
"AMOUNT: "!AMT(1) 

190 IF AMT <I> < =0 THEN 250 
200 INPUT "MEASURE! "* M* <I) 

210 INPUT "INGREDIENT* ”:ING*(I) 

220 1 = 1*1 
230 PRINT 
240 GOT?) ISO 
250 CALL CLEAR 
260 FOR J=0 TO 1-1 

270 PRINT AMT (J) j M* < J) ; " ";ING*<J> 

200 NEXT J 

290 PRINT s"MULTIPLY BY WHAT NUMBER" 

300 INPUT “OR DECIMAL FRACTION? "iF 
310 CALL CLEAR 

320 PRINT Fj"TIMES ORIGINAL RECIPE "*11 
330 FDR J=0 TO 1-1 

340 PRINT FtAMT(J);M*<J>;" ";ING*<J) 

350 NEXT J 

360 PRINT *"CONVERT AGAIN? <Y/N>" 

370 CALL KEY(O,K,S) 

380 IF K=B9 THEN 290 
390 IF K<>7B THEN 370 
400 END 


AMOUNT: 4 
MEASURE: DOZ. 
INGREDIENT: ALMONDS 


AMOUNT: 0 


If you want to triple the recipe, you would next enter 3. 
Answer CONVERT AGAIN? (Y/N) with Y, and this time try 
.5 and the recipe will be halved. While someone is keying in 
this program, another member of the family can try this re¬ 
cipe. It’s Grandpa’s Almond Cookies. Mix the ingredients 
together in order (except the almonds), roll in balls, and flat¬ 
ten slightly on cookiesheets. Press one almond on top of each 
cookie and brush with egg.’Bake at 375 for about 10 minutes. 

You may use this program as part of a larger program that 
retrieves the recipe from a file, then asks if you want to 
convert the recipe. You may want to READ the recipe from 
DATA statements rather than using INPUT. You can get 
fancy and print the title and instructions and draw pictures. 
[Watch the November/December issue for Micro Bartender 
-a program that can be adapted for any recipe file—Ed.] 



Inventory 

There are all types of ways to approach an inventory pro¬ 
gram. Ten programmers will come up with ten different pro¬ 
grams. One possibility is to use the “Electronic Home Secre¬ 
tary” program. Here is one Regena method of a household 
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Dogfight. .. from p. 35 

1000 CALL POSITION<#1,B1,B2) 

1010 P3-P :1 SP-3 ti Al-Bl ii A2-B2 is SHI-1 
1020 ON P3 BOTO 1030,1040,1030,1060, 

1070,1080,1090,1lOO 

1030 CALL SPRITE<#SP,128,C02,A1,A2,0,V*2>ii RETURN 
1040 CALL SPRITE(#SP,128,C02 r Al,A2,-V*1.6,V*1.6) 
si RETURN 

1050 CALL SPRITE <#SF, 128,0)2, A1,A2.,.-V«2,0) i; RETURN 
1060 CALL SPRITE(#SP,128,C02,A1,A2,—Vt1.6,—V*1.6) 
is RETURN 

1070 CALL SPRITEC*SP,128,CO2,Al,A2,0,-V*2)is RETURN 
1080 CALL SPRITE(#SP,128,CQ2,A1,A2,V*1.6,-V91•6) 
s j RETURN 

1090 CALL SPRITE(#SP,128,C02,A1,A2,V*2,0)I I RETURN 
1100 CALL SPRITE <#SP,128,C02,A1,A2,V*1.6,V*1.6) 

:i RETURN 

llio CALL NOTION(#2,0,V)js RETURN 

1120 CALL MOTION(#2,-V*.6,V*.6)s s RETURN 

1130 CALL MOTION(#2,-V,0>ti RETURN 

1140 CALL MOTION<#2,-V*.6,-V*.6)ss RETURN 

1130 CALL MOTION(#2,0,—V)ii RETURN 

1160 CALL MOTION (#2,V*.6,—V*.6)it RETURN 

1170 CALL MOTION(#2,V,0>:: RETURN 

1180 CALL MOTION(#2,V*.6,V*.6);s RETURN 

1190 IF SH2-1 THEN RETURN 

1200 CALL POSITION(#2,Cl,C2> 

1210 Al-Cl ti A2-C2 :: P3-P1 s: SP-4 si SH2*1 
s s GOTO 1020 


1220 CALL MOTION(#1,0,0,#2,0,0)Is CALL P0SITI0N<#1, 
P01,PQ2,#2,P03,P04> 

1230 CALL SPRITE(#1,132,10.POl,P02,20,0,#2,132,10, 
P03,P04,20,O) 

1240 CALL POSITION<#1,CR1,CR2) 

1230 CALL POSITION(#2,CR3,CR4) 

•1260 IF CR1>186 OR CR3M86 THEN CALL DELSPRITE 

(« 1 ,« 2 > 

1270 CALL SOUND(—1000,110,2,220,2,-7,0) 

1280 IF CRIOO OR CR3< >0 THEN 1240 
1290 CALL DELSPRITE(#1,#2,#3,#4) 

1300 CALL SCREEN(6) 

1310 DISPLAY AT(5,13);"CRAAAASSSH" 

1320 DISPLAY AT(10,3):"BOTH TEAMS CRASHED.” 

1330 DISPLAY AT(12,3)I"NO POINTS AWARDED.” 

1340 GOTO 1640 

1350 CALL DELSPRITE(#3,#4) 

1360 CALL MOTION(#1,O,0):s CALL POSITION(#1, 

P01,P02) 

1370 CALL SPRITE(#1,132,10,P01,P02,20,0) 

1380 CALL SOUND(-1000,440,2,220,2,-4,0) 

1390 CALL POSITION(#1,CR1.CR2) 

1400 IF CR1<186 THEN 1380 
1410 CALL DELSPRITE(#1,#2) 

1420 RED=RED+1 
1430 CALL SCREEN(6) 

1440 DISPLAY AT(3.1>:PLA2*j” HAS WON THE BATTLE.” 
1450 DISPLAY AT<9,3)sPLA2*|” SCORE IS t" 

1460 DISPLAY AT(9,26)iRED 

Continued on p. 37 


inventory. Use DATA statements and enter each item in the 
following order: room number, item, cost. 

100 REM HOUSEHOLD INVENTORY 
110 FOR 1-1 TO 4 
120 READ R*(I),C(I) 

130 NEXT I 
140 CALL CLEAR 
130 CALL SCREEN(4) 

160 PRINT TAB<9>|“INVENTORY” 

170 PRINT «I"CHOOSE*” 

180 PRINT i“l LIVING ROOM" 

190 PRINT i”2 KITCHEN" 

200 PRINT i"3 STUDY" 

210 PRINT i”4 WHOLE HOUSE” 

220 CALL KEY <0,K,S> 

230 IF K<49 THEN 210 
240 IF K>52 THEN 210 
, 250 CALL CLEAR 
260 CH-K-48 
270 CALL SCREEN<C(CH)) 

280 PRINT "INVENTORY OF "jR*<CH>im 
290 TOTAL-O 
300 RESTORE 460 
310 READ ROOM,ITEM*,COST 
320 IF R00M=9 THEN 380 
330 IF CH=4 THEN 350 
340 IF ROOMOCH THEN 310 
350 PRINT ITEM*,"*"jCOST 
' 360 TOTAL-TOTAL+COST 
370 GOTP..3.10 , 

380 PRINT "TOTALTOtAL 

390 PRINT ts"DIFFERENT ROOM?<Y/N>” 

400 CALL KEY(O,K,S) 

410 IF k=7B THEN 430 

420 IF K-89 THEN 140 ELSE 400 

430 END 

440 DATA "LIVING ROOM",13,KITCHEN,8 

450 DATA STUDY,10,"WHOLE HOUSE",12 

460 DATA 3,COMPUTER,iOOO 

470 DATA 3,DESK,129.30 

480 DQTA 2,"MICRO. OVEN",450 

490 DATA 1,PIAND,3900 

300 DATA 3,PRINTER,223.30 

310 DATA 2,REFRIERATOR,423 

320 DATA 1,SOFA,423 

530 DATA 2,STOVE,525 

540 DATA 1,TELEVISION,475.SO 

550 DATA 3,TELEVISION,150 

560 DATA 3,TYPEWRITER,300 

570 DATA 9,ZZZ,9 

Only a few items in a few rooms are shown here to illus¬ 
trate the logic of the program. You will probably want to 
include more rooms, the year purchased, and perhaps depre¬ 
ciation, replacement value, and a few other remarks. And 
don’t forget to add titles to make the information more 
meaningful. You can use this program idea for any kind of 
inventory from food storage-to retail products. Extended 
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BASIC allows nice formatting of output (with USING or 
IMAGE) so the numbers line up. It is also possible in regular 
BASIC by testing the length or the size of the numbers and 
printing accordingly. 

I entered the DATA items in alphabetical order so they 
will be listed alphabetically, but you could use a sort routine 
to alphabetize the items or to list the items according to cost. 
Following is a basic sorting routine. 

lOO REM SORTING 

110 REM N-NUMBER OF ITEMS 

120 DIM A(50) 

130 CALL CLEAR 

140 INPUT "N- "IN 

150 PRINT 

160 FOR 1-1 TO N 

170 INPUT "A"fcSTR*(I)V - “iA<I) 

1 BO NEXT I 
190 PRINT ii 

200 LIM-N-1 ' 

210 SW-0 

220 FOR 1-1 TO LIM 

230 IF A <I)< — A(I +1)THEN 290 

240 AA—A(I> 

250 A(I)—A(1+1) 

260 A(1+1)—AA 
270 SW»1 
280 LIM—I 
290 NEXT I 

300 IF SW-1 THEN 210 
310 FOR 1-1 TO N 
320 PRINT A(I) 

330 NEXT I 
340 PRINT 
350 END 

- You can use this interchange sort algorithm to arrange a 
list of numbers in ascending order. In this example, the user 
inputs the number of items in the list, N, and then enters 
each number (in any order). For this example, N is limited to 
50. The maximum exedtition time for 50 numbers is about 
50 seconds. 

Within a FOR-NEXT loop, each number is compared to 
the next number. If the first number is larger than the second 
number, those two numbers in the array are switched and SW 
is set equal to 1 to indicate a switch is made. If the first num¬ 
ber is smaller than or equal to the next number, the loop re¬ 
turns to the next pair of numbers to compare. 

If SW=1, at least one switch has been made and the pro¬ 
cess is repeated with SW reset to zero and the limit LIM of 
the Loop set to the last place a switch was made (the numbers 
after that last switch will be in ascending order with the 
largest number of the original list situated last in the series.) 

Continued on p. 83 








































Dogfight... from p. 25 

Lines 190-280 define special graphics 
characters four at a time. Then Line 
290, CALL MAGNIFY(3) indicates that 
sprites will actually consist of four reg¬ 
ular size characters, and only the first 
character number needs to be specified. 

DISPLAY AT(x , y) prints messages 
on the screen starting at row x and 
column y. ACCEPT AT(x1 ,y1) receives 
input at a certain place. SIZE(8) limits 
the players’ names to 8 characters to 
prevent a messy score chart later. 

CALL SPRITE(#1,96,2,120,20,0,5) 
defined Sprite # 1 (the first plane) as 
characters 96, 97, 98, and 99, black, 
starting in dot-row 120 and dot-column 
20, and going zero velocity up or down 
and to the right at velocity 5. More than 
one sprite may be defined at a time, as 


in Line 310. 

CALL DELSPRITE(#1) deletes Sprite 
#1, and more than one sprite may be 
deleted at a time. This statement is used 
when the planes are hit or crash or when 
the bullet leaves the edge of the screen. 

Complex 1F-THEN-ELSE statements 
are used in Lines 530-780 to determine 
what direction the plane is headed. 
CALL PATTERN then draws the plane 
depending on its heading; all other char¬ 
acteristics of the sprite remain the same. 

CALL POSITION(#1,B1,B2) in Line 
1000 returns the row and column posi¬ 
tion of Sprite #1 so the bullet can be 
shot from that same position. 

CALL MOTION can change the mo¬ 
tion of a sprite without affecting other 
characteristics. 

CALL COINC(#2,#3,3*V,PC) deter¬ 
mines if Sprite #2 (second plane) and 


Dogfight... from p. 36 

1470 DISPLAY AT( l 1,3):PLA1»*" SCORE IS t" 

1480 DISPLAY AT <11* 26):BLUE 

1490 SOTO 1640 

1500 CALL DELSPRITE(#3,#4) 

1510 CALL MOTION(#2,0,0)1> CALL POSITION(#2,POl,P02) 
1520 CALL SPRITE(#2,132,10,POl,P02,20,0> 

1530 CALL SOUND(-1000,440,2,220,2,-4,0) 

1540 CALL POSITION(#2.CR3.CR4) 

1550 IF CR3<186 THEN 1530 
1560 CALL .DELSPRITE(#2,#1) 

1570 BLUE-BLUE+1 
1580 CALL SCREEN(6) 

1590 DISPLAY AT (5, 1) « PLA1*| “ HAS WON THE BATTLE. ** 
1600 DISPLAY AT(8,3):PLA1*;” SCORE IS s" 

1610 DISPLAY AT(8.26)iBLUE 

1620 DISPLAY AT(lO,3):PLA2*;“ SCORE IS a" 

1630 DISPLAY AT(10,26)sRED 

1640 IF RED^IO OR BLUE-10 THEN 1690 

1650 DISPLAY AT(20,3):"WANT TO TRY AGAIN? (Y/N) H 

1660 PC-0 :: SH1=0 :s SH2-0 :s P-1 :: PI=5 

1670 CALL KEY(O,KEY,S) 

1680 IF KEY=89 THEN 370 ELSE IF KEY'' >78 THEN 1670 
1690 IF BLUE>RED THEN PRINT FLA1*;" HAS WON THE 
WAR."a"SORRY, .";PLA2* :: GOTO 1720 
1700 IF REDJ-BLUE THEN PRINT PLA2*t " HAS WON THE 
WAR."a"SORRY, "jPLAl* a a GOTO 17 20 
1710 PRINT "THE WAR HAS ENDED IN A TIE. DOTH SIDES 
ARE NOW AT PEACE.“ 

1720 END 



Sprite #3 (bullet from first plane) are 
coincident within a tolerance of 3*V. If 
so, a value of-1 is returned for PC. Co¬ 
incidence is reported only when the 
CALL COINC statement is actuaHy ex¬ 
ecuted during the program, so at greater 
velocities of the sprites coincidence will 
not be detected if the program is busy 
somewhere else. 

One solution to this problem is to 
CALL COINC more oftep (which would 
slow down the response time in turning 
the plane or shooting). Another solution 
is to increase the tolerance level. In this 
program the tolerance level is increased 
as the velocity increases, but if the toler¬ 
ance level is too great, the planes will 
crash even if they are not touching. 
Another solution is to decrease the time 
the program is executing other state¬ 
ments. One way to decrease execution 
time is to minimize the logic. This is 
done by allowing only one bullet at a 
time per plane-sorry, no machine guns 
—so the program onto- needs to keep 
track of four sprites. Using multi-state¬ 
ment lines also increases the speed of 
execution. CALL MOTION (#1,0,V):: 
RETURN is faster than using two sepa¬ 
rate lines for the statements. 

Although kept to a minimum, the 
coincidence problem does still exist in 
this program: You may notice that once 
in a while a bullet will pass undetected 
right through a plane. You’ll just have 
to accept it as one of the hazards of the 
game, or visuali*e'a three-dimensional 
situation-a bullet passing directly over 
or under the plane but at a d.ifferent al¬ 
titude. Also, once in a while a bullet 
won’t disappear at the edge of the 
screen, but will 'fwrap.” Ju^t consider 
it a stray bullet—a frequent occurrence 
in a real dogfight. 



Third-Party Pascal .. . from p. 31 

To summarize, the UCSD system is a 
powerful, yet easy-to-use operating sys¬ 
tem that brings-the home computer user 
much sophistication. Although I have 
pointed out several relatively minor flaws 
in the third-party development system, I 
consider them to be related to “teething 
problems.” My feeling is that the devel¬ 
opment system is not for the neophyte 
computer user; exposure to and famili¬ 
arity with other operating systems and 
text editors'facilitates understanding of 
the UCSD'-system. However, it is my 
opiniQn that the expenditure of time 
and effort required to learn the UCSD 
system is more than worthwhile. Those 
users who opt for the production ver¬ 
sion of UCSD Pascal will find it difficult 
to revert back to BASIC! The incorpora¬ 
tion of UCSD Pascal into the TI-99/4 is 
a positive step and it seems'bighly prob¬ 
able that more such steps will follow as 
the UCSD P-System supports not only 
Pascal, but FORTRAN, COBOL and a 
BASIC compiler. 



Book Review .. . from p. 19 

required for multiple products. An 
equipment maintenance scheduling pro¬ 
gram .-employs two sequential files for 
recording, updating;, and displaying 
equipment maintenance schedules.Other 
programs include computations for pro¬ 
duction lot sizes and costs, plus compar¬ 
ison and analysis of production alterna¬ 
tives. 

If all this sounds too good to be true 
for $11.00, bear in mind that program 
conversion is a more difficult task than 
in the case of the previous two books, 
and will require some ingenuity on the 
reader’s part. 



Note: 

Space in this issue did not permit a 
full treatment of the conversions nec¬ 
essary. Mr. Clulow’s complete set of 
conversion subroutines will appear in 
the Nov/Dec issue. We suggest that in¬ 
terested readers first get acquainted 
with the book. 


MOVING? 



m 




Don’t 
Miss Out 
On Any 

* 

Issues Of 


99’er Magazine. 


Send us a Change-of-Address Card 
(available at any Post Office) 

6— 8 weeks prior to the move. 

Be sure to include both the old & 
new address, plus the alphanumeric 
code above your name on the mail¬ 
ing label. 



99'er Magazine Sept/Oct 1981 37 
























m.. 



ip 


software. 


SOFTWARE FOR THE Tl 99/4 

COMPUTER 

Fast, well, structured programs which 
fully exploit the potential of the Tl computer 
for less than you expect to pay. Here is 
just a short list of what we have: 

Interactive graphics 
-a fast way to draw high resolution 

graphics 

Speech adder 

-expands the Tl’s speech capacity to 
include most of the English language 

Music synthesizer 

High resolution games which test the limits 

of your skills 

Send for free brochu re- 
Norton Software 
Box 575 
Picton, Ontario 
KOK 2T0 


Inventory, Order Entry, 
Sales, & Mailing List 
For Your TI-99/4 

Interactive Programming 
Allows Maximum Flexibility for Customizing 

the Software to Your Specific Needs. 

% 

Each program available separately: 

• Inventory $44.95 cassette; $49.95 disk 

• Order Entry 

• Sales 

• Mailing List 

Interactive packages — disk-based only: 

• Inventory*-Sales 

• Inventory - Order Entry 

• Order Entry - Mailing List 


rt 


rt 


tt 


it 


n 


tt 


$89.95 

89.95 

89.95 


Versions in Tl BASIC & Extended BASIC 

All 4 programs $189.95 

(FREE library storage case indluded) 

Add $2.50 for postage/handling. 
California orders, add 6% tax. 

To order, or for more information: 

Paul Yates Computer Services 
4037 Johnson Drive 
Oceanside, CA 92054 

Tel. (714) 758-1633 


• I 


II 


If 


• I 


1 - LOAD NEW FORM FILE* 

2 - FILL OUT SAME FORM* 

3 - PRINT COPIES" 

4 - TERMINATE" 


Interactive Forms ... from p. 13 

370 YES-1 
380 N0=0 

390 REM CENTRAL CONTROL MENU 
400 CALL CLEAR 
410 PRINT "MAKE A CHOICE—" 

420 PRINT 
430 PRINT 
440 PRINT 
450 PRINT 
460 PRINT 
470 PRINT 
400 INPUT CHOICE 
490 IF 0<CHOICER5 THEN 520 
500 PRINT "ERROR, TRY AGAIN..." 

510 GQTQ..4 IQ 

320 ON CHOICE GOSUB 330,840,1340,3010' 

330 GOTO 400 

540 REM 1 - LOAD NEW FORM FILE SUBROUTINE 

350 CALL CLEAR 

360 PRINT "ENTER DEVICEl" 

370 PRINT " 1 FOR CS1" 

580 PRINT " 2 FOR DISK" 

590 INPUT DEVICE 

600 IF (DEVIC£<1)♦(DEVICE>2)“—1 THEN 560 
610 IF DEVICE-2 THEN 690 

620 OP£N #4j*'CS1",INTERNAL,INPUT ,FIXED 192 

630 INPUT #4iX 

640 FOR I«1 TO X STEP 2 

630 INPUT #4»A*<I>,A*CI+1> 

660 NEXT I 
670 CLOSE #4 
680 RETURN 

690 REM — READ FROM DISK 

700 PRINT "ENTER WHICH DISK, 1-3?" 

710 INPUT DISKNO 

720 IF (DISKNO<l) + (DISKNO>3)—1 THEN 700 
730 PRINT "ENTER FILENAMEfi" 

740 INPUT FILENAME*' 

750 IF <LEN<FILENAME:*) < 1) +<LEN <FILENAME*) >10) 
THEN 730 

760 OPEN #S« "D5K*ItSTR* <DISKNO) Ir". "SrFILENAME*, 
INPUT SEQUENTIAL, INTERNAL, VARIABLE 132 
770 INPUT #5sX 
780 FOR 1-1 TO X 


-1 


790 INPUT #5lA* <I> 

800 NEXT I 
810 CLOSE #5 
820 RETURN 

830 REM 2 - FILL OUT SAME FORM 
840 REM MAIN SCANNER- LOOKS FOR COMMANDS 
830 CALL CLEAR * 

860 TERM-1 
870 FOR 1-1 TO X 
880 REM »>> COMMAND LINE?>» 

890 IF SEG* < A* <I),1,2)—BANG* THEN 910 ELSE 1310 
900 REM >>» IF SO, START OF REPEAT SEQUENCE?>>> 
910 IF SEG*<A* <I>,3,1)-AMPERSAND* THEN 920 ELSE 990 
920 IF REPEAT-YES THEN 990 

930 REM >>>> INITIALIZE THE REPEAT SEQUENCE. >» 
940 REPEAT-YES 

950 MAXREPS—VAL(SEG*(A*(I>,4,POS(A*(I),SEMICOLON*, 
4)—4)) 

960 REPSTART-I 
970 REPS-0 . 

980 REM LINE PARSER 
990 FOR J—3 TO LEN(A*U>) 

1000 P*=SEG*(A*(I),J,1) 

1010 IF PS-QUOTE* THEN 1030 ELSE 1060 
1020 REM >>>> GO SUBROUTINE "COMMENT" >» 

1030 GOSUB 32767 
1040 J=K 
1030 GOTO 1300 

1060 IF P*—COLOKNL THEN 1080 ELSE 1140 
2070 REM »>> G03UB£0UTINE "FIELDINPUT" »> 

1080 IF SEG* <A*(I), J + l,-RIGHTARROW* THEN 1090 
ELSE 1110 

1090 RIGHTJUSTIFY-YES 
1100 J-J+l 
1110 GOSUB 32767 
1120 J-K 
1130 GOTO 1300 

1140 IF P*«OPENPAREN* THEN 1160 ELSE 1190 
1150 REM >>>> GO SUBROUTINE "MATH TERM" >>> 

1160 GOSUB 1060 
1170 J-K 
1180 GOTO 1300 

1190 IF P*—AMPERSAND* THEN 1210 ELSE 1300 
1200 REM >>>> IS IT THE 1ST AMPERSAND? >>> 

1210 IF J-3 THEN 1300 


Continued on p. 75 


38 99'er Magazine Sept/Oct 7981 















































Ringwielders Lair $20.00 (disk) 

(Extended BASIC and Memory Expansion needed) 


Denali Data Adaptor 

$20.00 

Atari Joysticks 

$16.50 

Le Shhhtick 

$34.00 

MX70/80 ribbons 

$10.50 

Disks 

$ 2.85 


For a catalog of all of our products, 
send $1.00 (refundable on any order). 

New Programs Coming from DATA SYSTEMS 

• Legal Will Writer 

• Empirial Earth 

• Treasure Hunt 

Minimum order is $15.00 

DATA SYSTEMS 

2214 W. IOWA 
Chicago, IL 60622 
Tel. (312) 235-2699 


QUALITY SOFTWARE 
FOR Tl 99/4 


BASIC LANGUAGE PROGRAMS 

SPACE BATTLE *2058 You are the Earthfleets last hope, 
outnumbered you must rely on cunning and steely nerves to 
outwit the enemy! 

$13.95 

SKI - An exciting downhill race game. Hundreds of courses and 
different skiing conditions test your skill. 

$14.95 

LASER SHIELO -Shield the cities from incoming missiles with 
your laser. Fast reflexes and presence of mind are required. 

$14.95 

LAND ON MARS - Landing is only half the fun. You must take off 
and dock with the orbiter. Hundreds of landscapes to challenge 
you. Dragon option included! 

$12.95 

BARNYARD FUN - A memory building game for children ages 
four and up. LOTS OF FUN!! 

$14.95 

EXTENDED BASIC PROGRAMS 

MR. FROG - Three educational games for ages 3 and up. Great 
graphics, music, and even a race against the computer. 

$24.95 

METEOR SHOWER - Only the best pilots can survive for long. 
An arcade type game of fast action. 

$9.95 

All programs on cassettes, complete instructions included. 

Plus $1.50 shipping/handling, Mn. residents add 5% sales tax. 

To order or for more information: 

American Software Design & Distribution Co. 
P.O. Box 46 

Cottage Grove, Mn. 55016 


Space War . .. from p. 28 

2660 

2670 

IF K=4 THEN 3140 

IF K-14 THEN 3250 

3110 

3120 

IF V=1 THEN 5510 

CALL HCHAR(A,B,100) 

2230 

IF SOO THEN 2480 

2680 

IF K=15 THEN 3360 

3130 

GOTO 2160 

2240 

t * 

GOTO 2160 

2690 

CALL HCHAR(A,9,P> 

3140 

A=A-1 

2250 

IF KlOll THEN 2320 

>2700 

GOTO 2200 

3150 

B=B—1 

2260 

YPR-YPR-5 

271 0 

A=A-1 

3160 

IF AOO THEN 3180 

A=24 * 

2270 

IF YPR<0 THEN 6270 

2720 

IF AOO THEN 2740 

3170 

2280 

E=C 

2730 

A=24 

3180 

IF BOO THEN 3200 ’ ; 

2290 

F=D 

• 

2740 

CALL SCHAR(A,B,P> 

3190 

B*32 

2300 

G=2 ' 

2750 

GOSUB 6140 

3200 

CALL GCHAR(A,B,P> 

2310 

GOTO 3470 

2760 

IF V=1 THEN 5510 

3210 

GOSUB 6140 

2320 

YPR=YPR—1 

2770 

CALC•HCHAR(A,B,96) 

3220 

IF V=l THEN 5510 

2330 

IF YPR<O THEN 6270 

2780 

GOTO 2160 

3230 

CALL HCHAR(A,B,101) 

2340 

CALL GCHAR<C,D,P> 

2790 

A=A+1 

3240 

GOTO 2160 

2350 

CALL HCHAR < C , D , 32 > 

2800 

IF A<>25 THEN 2820 

3250 

A=A-M 

2360 

.CALL SOUND (200,-6,0,440, 0) 

2810; 

A=1 

3260 

B=8+i 

2370 

6*1 

2820 

CALL GCHAR(A,B,P) 

3270 

IF A< >25 THEN 3290 

2380 

IF THEN 4750 

2830 

GOSUB 6140 

3280 

A-l 

2390 

IF Kl*5 THEN 4830 

2840 

IF V=1 THEN 5510 

3290 

IF B< >33 THEN 3310 

2400 

IF K 1=3 THEN 4910 

2850 

CALL HCHAR(A, B , 97) 

3300 

B=1 

2410 

IF K 1=2 THEN 4990 

2360 

GOTO 2160 

3310 

CALL GCHAR(A, B, P) 

2420 

IF.K1=6 THEN 5070 

2870 

B=B+1 

3320 

GOSUB 6140 

2430 

IF K1=4 THEN 5130 

2880 

IF &033 THEN 2900 

3330 

IF V=1 THEN 5510 

2440 

IF K t = 14 THEN 5290 

289Q 

8=1 

3340 

CALL HCHAR<A,B,102) 

2450 

IF K1=15 THEN 5400 

290C 

CALL GCHAR(A,B,P> 

3350 

GOTO 2160 

2460 

CALL HCHAR(C,D,P) 

2910 

GOSUB 6140 

3360 

A=A+1 

2470 

GOTO 2200 

2920 

IF V/=l THEN 5510 

3370 

B=B-1 

2480 

IF K< >18 THEN 2550 

2930 

CALL HCHAR(A,B,98) 

3380 

IF A<>23 THEN 3400 

2490 

BPR*tfPR-5 

2940 

GOTO 2160 

3390 

A= 1 

2500 

IF 8PR<0 THEN 6300 

2950 

B=B-1 

3400 

IF BOO THEN 3420 

2510 

E=A 

2960 

IF BOO THEN 2930 

3410 

B=32 

2520 

F = B 

2970 

B=32 . * 

3420 

CALL GCHAR <A,B,P) 

. 2530 

G=1 

2980 

CALL GCHAR(A,B , P> 

3430 

GOSUB 6140 

2540 

GOTO 3470 

2990 

GOSUB 6140 

3440 

IF V=1 THEN 5510 

2550 

BPR=BPR-1 

3000 

IF V=1 THEN 5510 

3450 

CALL HCHAR<A,B,103) 

2560 

IF.BPR<0 THEN 6300 

3010 

CALL HCHAR(A,B,99) 

-3460 

GOTO 2160 

2570 

CALL GCHAR <A, B, P> 

3020 

GOTO 2160 

3470 

CALL GCHAR<E,F,Z> 

2580 

CALL HCHAR(A,B„32) 

3030 

A=A— 1 

3480 

CALL SOUND(100,440,0,880,0) 

2590 

CALL SOUND(200,-6*0,440,0) 

3040 

8=8+1 

3490 

IF Z =96 THEN 3510 

2600 

A 

G=2 \ 

3050 

IF AOO THEN 3070 

3500 

IF ZO104 THEN 3640 

2610 

IF K-5 THEN 2710 : 

3060 

A=24 

3510 

FDR I=E-1 TO 1. STEP -1 

2620 

IF K+l=l THEN 2790 

3070 

IF B< >33 THEN 3090— - 

3520 

CALL GCHAR(I,F,P) 

2630 

IF K=3 THEN 2870 

3080 

B=1 

3530 

GOSUB 6050 

2640 

IF K=2 THEN 2950 

3090 

CALL GCHAR(A,B f P) 

3540 

CALL HCHAR<I,F,112) 

2650 

IF K=6 THEN 3030 

p 

3100 

GOSUB 6140 


Continued on p. 47 
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Command Module Applications 



Personal 
Record Keeping: 


Managing A Mobile Home Park 


By David G. Brader 


First of all, this true story has a moral to it. So might as well get it out of the way now: 



T he Tl Command Modules are well 
written, almost totally error free, 
and have been engineered for ease 
of use by non-programmers. Let’s talk 
about one of these little jewels: 

The Personal Record Keeping (PRK) 
Command Module combined with your 
imagination is a very flexible and power¬ 
ful tool. To fully utilize this power, how¬ 
ever, your Tl-99/4 system should include 
a printer. The Tl Thermal Printer works 
well and is probably the easiest and least 
expensive to use, but I chose the more 
expensive route of an Epson MX-80 
printer through the RS232 Interface. 
This gives me a bit more power (e.g., 
longer print lines) to the PRK’s report 
formatting. For most applications, you 
will also need either a cassette recorder 
or the disk system to keep your data 
files. 

Before, trying to set up and work 
with a data file using the PRK, you 
should carefully read the manual that 
comes with the module and all the exam¬ 
ples. When you have done that, take a 
break, come back a little later, and do it 
all again. That mild-mannered little PRK 
manual contains the answers to questions 
that will surely pop up when you start 
designing the solution to your problem. 
So keep it handy! ^ 

OK, now comes the .real challenge. 
How do we decide that a problem can 
be solved using the PRK module? First, 
we must completely describe the prob¬ 
lem. Second, we must break the prob- 
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lem down into subproblems or tasks. 
Third, we identify the tasks that can be 
performed by the PRK module. Fourth, 
we see if enough of the tasks can be 
handled by the PRK module to make it 
a reasonable solution to the overall 
problem. The rest of this article is about 
such a challenge and a way to solve it 
with the PRK module. 

And Now For Our Story . . . 

Recently I had a customer ask me 
how-much it would cost to write a pro¬ 
gram for him. I told him that it is diffi¬ 
cult to determine until the program is 
completed, but he could figure on $15.00 
per hour and a minimum of 10 hours. 
At this point, he decided to be brave 
and tackle it himself. Of course, I was 
curious, so 1 asked him what he wanted 
the Tl Basic program to do. 

He told me that he was the owner 
of a mobile home park. Each month he 
had to figure out the bill for each indi¬ 
vidual renter in the park. He wanted 
the Tl-99/4 to do the work-saving his 


time and decreasing the chance for 
errors. After thinking over this problem 
for a minute, I asked him for details of 
what he did to accomplish the job him¬ 
self. 

First, he walked around to each trailer 
space and copied the electric meter and 
gas meter readings into his notebook..A 
computer system could be designed to 
do this task but it would take extremely 
expensive peripheral hardware . . . 

1 asked him what else was in the note¬ 
book that he used for this job. He said 
the notebook contained all the previous 
electric and gas meter readings. It also 
contained miscellaneous charges for 
each renter, the electric and gas meter- 
rental fees, the electric and gas rates, and 
the actual space rental fees. (It was ob¬ 
vious to me at this point that the com¬ 
puter could easily act as a notebook and 
store all that data on cassette tape or 
floppy disk.) " 

Next, he sat down at his desk with 
the notebook, pencil, paper, and a cal¬ 
culator. For each trailer space, he per¬ 
formed the following math calculations: 


GAS BILL = < CtJR. GAG MEIIEK - PREV. GAS MEIER ) X GAS RATE 

-» GAS MEIER USE FEE 

ELECTRIC BILL < CUR. KWH METER - PREV. KWH METER ) X KDM RATE 

+ KUH METER USE FEE 

TOTAL BILL = GAS BILL + ELECTRIC BILL + MtSC, CHARGES 

+ SPACE RENTAL FEE 


















































Each of the bill items is then recorded 
in the notebook for bookkeeping pur¬ 
poses, and a statement is made out for 
each tenant. Finally, he figures the total 
gas bill, the total electric bill, and the 
total income for the trailer park. (The 
computer could also record all the bill 
items, perform the calculations, and 
make out statements. 

After reading the PRK manual a 
couple of times, I noted it offered the 
following capabilities: 

1. Maintains files of data in a structured 
fashion. 

2. Allows adding to and updating data 
within the files. 

3. Data structures can be rearranged by 
sorting in different ways. 

4. Any data structure of a numerical 
nature could have math performed 
on it or between it and another data 
structure. 

5. The data structures could be arranged 
in various ways’ and then printed as 
reports, lists, or what have you. 


After further consideration, it ap- 
jeared to me that most of the tasks re- 
ated to the “trailer park monthly bill¬ 
ing problem” could be solved using the 
TI-99/4 with the PRK module and a 
printer. 

With my TI-99/4 fired up, PRK 
module installed, and manual in hand, I 
started toying around setting up the da¬ 
ta structure of the file to use on this 
problem. I finally settled on the struc¬ 
ture shown in Table 1. 

Once a structure has been defined, 
you can't go back and change it without 
redefining the entire file structure. The 
best policy to follow to minimize this 
problem is to try out the file structure 
with a small amount of test data. It is a 
real pain to spend 4 hours entering real 
data into a file and then discover one 
odd-ball piece of data is too big! By the 
way, the smaller you define the width 
of a data item, the more data items you 
can keep in memory. As you can see, 
some care must be given to the design of 
the file structure. 


FILE STRUCTURE 



% 

ITEM 

TYPE 

WIDTH 

DEC 

DESCRIPTION OF ITEM 

1 SPACE » 

CHAR 

4 

D 

The trailer space nunber 

2 RENTER 

CHAR 

IS 

0 

Mane of the trailer space renter 

. 3 LAST CAS 

DEC 

10 

3 

The prevjtvs gas netcr reading 

4 CUR'. GAS 

DEC 

ID 

3 

The current gas neter reading 

S GAS RATE 

DEC 

& 

4 

The cist of the gas per unit oolime 

6 LAST XHK 

DEC 

ID 

3 

The previous electric neter reading 

7 CUR, RUN 

DEC 

10 

3 

The current electric neter reading 

8 RATE/KWH 

DEC 

6 

4 

The cost of the electricity per KWH 

9 G.N, CHRG 

DEC 

5 

2 

The nonthly gas neter charge 

ID GAS TOTAL 

DEC 

6 

2 

The cost if gas used plus the neter charge 

tl E.H. CHRG 

DEC 

fa 

2 

The nonthly electric niter charge 

12 ELEC.TOTL 

DEC 

6 

2 

The cost of JtUH used pi os the neter chorge 

13 RENT/MO. 

DEC 

6 

2 

The trailer space nonthly rental cost 

14 HISC.CHRG 

DEC 

7 

2 

Any other charge tnaybe donage to lot..,) 

15 MO, TOTAL 

DEC 

6 

2 

Grand totol of gas, Kifo, rent, and nisc. 

TABLE 1 






Look at Table 2. It shows my three 
sample file “pages” of test data. This is 
the way the data would look after put¬ 
ting in the initial values. Now look at 
Table 3. The current utility meter read¬ 
ings and any miscellaneous charges have 
now been entered as the trailer park op¬ 
erator would do once a month. 

At this point, I realized I had to fig¬ 
ure out how to use the PRK module’s 
"math transformations.” That sounds 
pretty ominous doesn’t it. But study of 
the manual revealed that it is nothing 
more than a set of simple equation 
“templates.” These are shown on page 
25 of the PRK manual and included 
here in Table 4. By substituting an item 
name for the appropriate “A, B, or C” 
in the equations, I built up a set of 
math transformations to figure out the 
electric, gas, and total bills. The PRK 
module guides you through this process 
nicely. The tailored set of math transfor¬ 
mations is shown in Table 5 (in the or¬ 
der of execution). 

Notice that the tailored math trans¬ 
formations set up the next month’s 
“LAST GAS, CUR. GAS, LAST KWH, 
CUR. KWH” item fields after their data 
was utilized. This means that next month 
the user won’t have to worry about mov¬ 
ing the old "current” values to the “last” 
fields. I feel it is less confusing to the 
user to have zero in the "current” fields 
for the next month too. (That ought to 
get your imagination working!) 

Now for the big test. Run the tailored 
math transformations on the file of test 
data and see if it works. The results are 
shown in Table 6. It is interesting to 
compare Table 6 to Table 3. The com¬ 
parison better illustrates the work of 
these tailored equation templates. 

With all the real data in the file, it 
probably takes about a half hour to an 
hour to process all the math. Sure that 
is slow, but it is accurate—and the man¬ 
ager can be eating dinner while the pro- 


» * »•••%-* •• . 

PILE: CENTALS 

DATE! 6/20/81 

TITLE! TABLE 2 

• 

• 

♦ • r 



• 

PAGE t 

l 

PAGE ♦ 

2 

PAGE * 

3 

~IT SPACE * 

A-23 

“ITspace * 

Ef-44 

“ITspace * 

B-4S 

2.RENTER 

SMITH,C.W. 

2.RENTER 

JONES,SAM 

2.RENTER 

HEIM,WILLIAM 
990498.328 

3.LAST GAS 

799992 .465 

3.LAST GAS 

830.592 

3.LAST GAS 

4. CUR. GAS 

0 . 0 0 0 

4.CUR. GAS 

0.000 

4.CUR. ©AS 

0.000 

3 . GAS r<A ,E 

. i .1 3 0 

5.GAS RATE 

.1130 

!f>. GAS RATE 

. 1130 

6,LAST KWH 

128176 . 263 

6.LAST KWH 

10841.212 

6,LAST KWH 

130392.249 

-7. CUR. KWH 

0 . 000 

7.CUR. KWH 

0 . 000 

7. CUR. KWH 

0.000 

8.RATE/KWH 

. 0231 

8.RATE/KWH 

. 0231 

8 . RATE/KWH 

. 0231 

9.G.M. CHRG 

2.50 

9.G.M. CHRG 

2.50 

.9 . G . M . CHRG 

2.5 0 

10'.GAS TOTAL 

0.00 

10. GAS TOTAL 

0.00 

10.GAS TOTAL 

0.00 

ll.E.M. CHRG 

S . 0 0 

ll.E.M. CHRG 

5.00 

ll.E.M. CHRG 

5.0 0 

12.ELEC.TOTL 

0,00 

12.ELEC.TOTL 

0.00 

12.ELEC,TOTL 

0.00 

13.RENT/MO. 

98,0 0 

13 . RENT/MO. 

105.00 

13.RENT/HO. 

105,no 

14.f1iSC.CHRG 

0 . 0 0 

14 . M1SC . CHRG 

0.00 

14.MI SC.CHRG 

0.0 0 

15.MO. TOTAL 

TABLE 2 

0 , 00 

15.MO. TOTAL 

0.00 

15.MO, TOTAL 

0,00 




99'er Magazine Sept/Oct 1981 41 






























FILE! RENTALS 

.* 




DATE! 6/20/81 





TITLEi TABLE v 

s 





PAGE * 

* p 

♦ 

1 

PAGE # 

2 

PAGE # 

3 

wmm »«• 

1.SPACE * 

A-23 

1. SPACE # 

B-44 

“iTspace * 

B-45 

2.RENTER 

SMITH,C.W. 

2. RENTER 

JONES,SAM 

2.RENTER 

HEIM,WILLIAM 

3.LAST GAS 

799992.465 

3.LAST GAS 

830.592 

3.LAST GAS 

990498.328 

4 .CUR, GAS 

800124.732 

4.CUR. GAS 

891.947 

4.CUR. GAS 

990674.998 

5.GAS RATE 

. 1130 

5.GAS RATE 

.1130 

5.GAS RATE 

.1130 

6 .LAST KWH 

128176.263 

6 .LAST KWH 

10041.212 

6 .LAST KWH 

130392.249 

7. CUR. KWH 

131002.097 

7.CUR. KWH 

23622.609 

7. CUR. KWH 

134305.045 

0.RATE/KWH 

. 0231 

8 .RATE/KWH 

. 0231 

8 .RATE/KWH 

.0231 

9.G.M. CHRG 

2.50 

9.G.M. CHRG 

2.50 

9.G.M. CHRG 

2.50 

lb.GAS TOTAL 

0.00 

10 .GAS TOTAL 

0 .00 

10.GAS TOTAL 

0.00 

li.E.M. CHRG 

5.00 

il.E.M. CHRG 

5.00 

li.E.M. CHRG 

5.00 

12,ELEC.TOTL 

0.00 

12.ELEC.TOTL 

0.00 

12.ELEC.TOTL 

0.00 

13.RENT/MO. 

98.00 

13 -RENT/hO. 

105.00 

13.RENT/MO. 

1.05 . OO 

14.MISC.CHRG 

0.00 

14.MISC.CHRG 

' 17.50 

14.MISC.CHRG 

0.00 

15,MO. TOTAL 

0.00 

IS.MO. TOTAL 

0.00 

15.MO. TOTAL 

0.00 

TABLE 3 

i 









TAILORED MATH TRANSFORMATIONS FOR 

TRAILER PARK SILLING 

ITEM TRANSFORMATIONS 





1 . 

A - B 

LAST GAS 

- 

CUR. GAS - 

LAST GAS 

2 . 

3. 

A « B + C - 
A - B - C 

GAS TOTAL 

a 

LAST GAS X 

GAS RATE 

4. 

5. 

A - B x C 

A * B / C 

GAS TOTAL 


G.M. CHRG 

♦ GAS TOTAL 

6 . 

7. 

A =» B * C 

A - ABS(B) 

LAST GAS 

- 

CUR. GAS 


8 . 

. 9. 

A - LOG 10(B) 

A * LOGE(B) 

CUR. GAS 

3 

0.000 


10 . 

11 . 

A - EXP(B) 

A - ATAN(B) 

LAST KWH 

Z2 

CUR. KWH - 

LAST KWH 

12 . 

13. 

A - TAN(B) 

A - SIN(B) 

ELEC.TOTL 

- 

LAST KWH X 

RATE/KWH 

14. 

15. 

A * COS(B) 

A - INT(B) 

ELEC.TOIL 

a 

E.M. CHRG 

+ ELEC.TOTL 

16. 

17. 

A - SGN(B) 

A - PI 

LAST KWH 

a 

CUR. KWH 


18. 

A * RND 

CUR. KWH 

- 

,7.000 


[Sec the User's Reference Guide for a 

MO. TOTAL 

K 

CAS TOTAL 

♦ ELEC.TOTL 

discussion of these functions.) 

MO. TOTAL 

3 

MO. TOTAL 

«■ RENT/MG. 



MO. TOTAL 

• 

X 

MG. TOTAL 

* MISC.CHRG 

TABLE 4 

TABLE 5 



• 


• * , * * - ■* . • 

* . • \ » 

FILE 1 RENTAL 

• 

.8 






DATE! 6/20/81 






TITLE! TABLE 

f 

6 






PAGE # 

1 

PAGE # 

2 

PAGE * 


3 

•••• 

1,SPACE ♦ 

A- 23 

1 . SPACE # 

B-44 

1 .SPACE ♦ 

B--4S 

2,RENTER 

SMITH,C.W. 

2 . RENTER 

JONES,SAM 

2.RENTER 

HEIM,WILLIAM 

3.LAST GAS 

800124.732 

3. LAST GAS- 

891.947 

3. LAST 

GAS 

m f 

990674.998 

4.CUR. GAS 

0.000 

4.CUR. GAS 

0,000 

%4.CUR. 

GAS 

0.000 

5.GffS RATE 

.1130 

5.GAS RATE 

. 1130 

5. GAS 

RATE 

.1130 

, 6.LAST KWH 

131002.097 

6 .LAST KWH 

23622.609 

6 .LAST 

KWH 

134305.045 

Z. CUR. KWH 

0 . 000 

7.CUR. KWH 

0.000 

7.CUR. 

KWH 

0.000 

8 .RATE/KWH 

. 0231 

8 .RATE/KWH 

. 0231 

8 .RATE/KWH 

. 0231 

9. G.M. CHRG 

2.50 

9.G.M. CHRG 

2.50 

9 . G . M . 

CHRG 

2.50 

10 1 GAS TOTAL 

17.45 

10.GAS TOTAL 

9.43 

10 .GAS 

TOTAL 

22.46 

li.E.M. CHRG 

5,00 

li.E.M. CHRG 

S. 00 

li.E.M. 

CHRG 

5.0 0 

1?.ELEC.TOTL 

70.28 

12.ELEC.TOTL 

115.45 

12.ELEC 

. TOTL 

95.39 

13,RENT/MO. 

/ , 

98.0 0 

13.RENT/MO. 

105.00 

13;RENT/MO. 

105.00 

14.MISC.CHRG 

0.00 

14.MISC.CHRG 

17.50 

14.MISC 

.CHRG 

0.00 

IS. MCI. TOTAL 

185.72 

15.MO. TOTAL 

247.38 

15.MO. 

TOTAL 

222.85 

TABLE 6 
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cessing is being done. After dinner, he 
can start the PRK module printing out 
a report for each “file page” like shown 
in Table 6. Finally, after a nice relaxed 
dessert or brandy, he can cut.apart the 
pages of the report and tape them in the 
appropriate spot of the form shown in 
Figure 1. There is a separate form page 
for each space in the trailer park. By 
using tape only at the top of the little 
PRK page, he can flip through previous 
months data (since the little pages are 
overlapping). 

An Automatic “Manual” Feature 

By using the “ANALYZE PAGES” 
mode of the PRK module, the total gas, 
electric, and monthly income can be 
read. After selecting the mode, select 
“5 SEE ITEM STATISTICS.” Then 
chose the item such as “GAS TOTAL” 
and a display will appear like in Figure 
2. The gas total for the entire trailer 
park is contained in the value of SUM. 
See what reading the manual reveals to 
you .. . 

Before getting out of the PRK mod¬ 
ule, the data file must be saved on cas¬ 
sette tape or floppy disk for next time. 
Yes, the math transformations are also 
saved automatically at the same time. 


Well, that’s the story. I guess the 
only thing to add is that the Personal 
Record Keeping Command Module isn’t 
the solution to all problems. But if you 
study it and experiment enough, you 
will be ready to wield this valuable and 
flexible tool when the appropriate situa¬ 
tion arises. So go ahead . . . give the 
module a try, and I’ll bet that soon you 
too will be witnessing a “Command” 
performance ... 



1T E M 

• fMl if » •*<* 

STATISTICS 

IT E h 

== GAS TOTAL 

MEAN 

•-•= 16,44666667 

STD I>EU 

=6.57268844 

MAX UAL 

= 22.46 

MIN UAL 

9.43 

SUM 

- 49,34 <- 

DATA 

a 3 

MISSING 

= 0 


Figure 2. 


MOBILE MOM 


F>*=»F*K MONTHLY RECORD 


Spac« number 


A-Z3 


Y«ar 


ns\ 


Dmc - 


Nov 


Oct 


S«p 








* 



PAGE * 


Jun — 


May — 

"IT5PACE-* 

A-23 

2.RENTER 

SMITH,C.W. 


3.LAST GAS 

SO 0124.732 

Apr - 

4,CUR. GAS 

0,000 


5.GAS RATE 

. 1130 

Mar — 

6.LAST KWH 

131002,097 


7.CUR. KWH 

0.000 

Feb - 

8 . RATE/KUH 

. 0231 


9.G.M. CHRG 

2.50 

Jan — 

10. GAS TOTAL 

17.45 


li.E.M. CHRG 

5.00 


12,ELEC.TOIL 

70,28 


13.RENT/MO. 

98.00 


14.MISC,CHRG 

0 . 00 


-IS, MO. TOTAL 

-i- 

185.72 ^— 


LC.U. 
?2.46S 
) 

> 

’6.263 
I 


Figure V. 


^ r i f j 


W I .1 9 \ W 


W I V V 


15.MO. TOTAL 142.94 


Business & 

Professional 

Software 


File Management System 

300 records per disk, full upper 
and lower case, user-defined fields 
& printed formats. RAM sort 
(Shell-Hibbard), multi-key sub-file 
selection. $60 

Statistics Package 

Create data files & selective 
sub-files. Generate descriptive 
statistics, parametric & non-para- 
metric tests, linear regressions, & 
curve fitting. Tabular & graphic 
data output. $40 

For Order & Inquiries Contact: 

Frederick Marin 

Small Business/Professional 
Computer Services 

87 Mayfair Road 
Warwick, RI 02888 
Tel. (401)461-6308 


ATTENTION 

DEALERSI 

If you don't offer Third-Party 
Software, you may be missing 
important sales. A customer's 
decision to purchase a 99/4 may 
be influenced by the availability 
of such supporting software. 
These are the type of sales that 
you cannot afford to lose! 

C.S.C. is now offering their ser¬ 
vices to dealers. C.S.C. is a mar¬ 
keting firm specializing in the 
evaluation of Third-Party Soft¬ 
ware. Let C.S.C. “weed out" 
unsatisfactory software and pro¬ 
vide a complete line of support¬ 
ing software for the 99/4 and 
99/4A. Over 50 programs are 
available in the areas of enter¬ 
tainment, education, business 
and home use. 

Catalogs are available. Contact 
(405) 947-7402 today or write 
to: 

C.S.C. 

P.O. Box 1492 
Bethany, OK 73008 
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Select a modem for your computer... easy as ABC. 


CHOOSE A. The Smart One Model 
AM232, with its own built in miciocon 
troller. Auto Dials, Auto Answers, Auto 
Modes ( 0 !iginate/answer). Direct Con¬ 
ned" lor any computer with an RS232 
interface S299.00. 


CHOOSE B. The Acoustic Modem. Model 
AMII. A lor the Apple 1 Comes complete 
with a powerful operating system Supports 
25 easy to use keyboard commands and 
operates interactively with your programs 
No interface card required! . . SI79.00. 


CHOOSE C. The Direct Conned' 
Modem. Model AMII. lor the Apple*. Conies 
complete with a powerful operating system. 
Supports Auto Dial Auto Answer, 27 easy 
to use keyboard commands and operates 
interactively with your programs. No inter 
lace card required!... S289.00. 


Be a part of the intormatton revolution It s tun. exciting, informative, educational Call oi write your order today. COD s accepted 



MICROMATE 
ELECTRONICS, INC. 

2094 Front Street • East Meadow, New York 11554 • Telephone 516.794.1072 

All Direct Connect modems are F-'CC certified •Registered trademark of Apple Computer I no 



Applesoft to Tl BASIC . .. from p. 24 

NNN is the statement number of the needed element) will 
do the trick. Keep this weakness of APPLESOFT in mind 
whenever you see RESTORE followed by a number of 
READs in a APPLE program. 


COLOR statement. For example, CALL COLOR (3,16,2) 
gives white numbers from 0 to 7 on a black background. 
Changing this to CALL COLOR (3,2,16) will cause the 
inverse of it to appear (black numbers on a white back¬ 
ground). 


SCREEN COMMANDS 

The APPLE has three modes of processing; TEXT mode 
and two different graphics modes. While in TEXT mode, 
the programmer has a number of commands which provide 
a wide range of control over the screen. As previously stated, 
the APPLE screen in this mode acts similar to the Tl 
—except it .starts at the top then works its way down to the 
bottom before scrolling. It also allows the programmer to 
do things like set the width of the print screen (“text win¬ 
dow”) and the length (number of lines) of the text window. 
Some of the most commonly encountered commands are: 


RANDOM NUMBERS 

APPLESOFT’S ability to retain a random number for 
re-use can be confusing. This means that you cannot just 
convert the APPLE RND statement to Tl. What happens is 
this: If the statement is RND(O), APPLESOFT re-uses its 
last random number. If the statement is RND(N) where N 
is positive, it gives a new random number. If the statement 
is RND(N) where N is a negative number, N acts as a ‘seed’ 
number and all other RND statements will follow a stan¬ 
dard sequence. Note that the value N can be any positive 
number in order to give a new random number. 


CALL -936 
CALL -912 
CALL -868 

HOME v 
POKE 32,L 
POKE 33,W 
POKE 34,T 
POKE 353 
FLASH 


clear the screen inside the text window 
scrolls the text window up 1 line 
clears the current line from the cursor to 
the right 

same as TI’s CALL CLEAR 
sets left margin of window to L 
sets width of window 
sets top of window 
sets bottom of screen 

start ‘flashing’ output from white letters on 
black to black letters on white and back 


If you see a statement using RND(O), backtrack to the 
last statement with RND(N) and save that random number 
in place of RND(O). For example: , 

*4 

10 IF RNDT2)>.5 THEN 500 

60 IF RND(0)>.75 THEN 600 

would be converted to be: 


INVERSE 

again 

reverses putput to black letters on white 

10 

15 

Q=RND 
IF Q>. 5 

THEN 500 

NORMAL 

POS(N) 

resets FLASH and INVERSE 
get current horizontal column of the cursor 
(i.e., N will have column number 0—39) 

• 

• 

• • * 

60 

IF Q>.75 

THEN 600 

To simulate FLASH or INVERSE, use Tl BASIC’s CALL 
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Continued on p. 45 













































FOR 

Tl UNIVERSITY BOARD 

OWNERS: 




/ 


s », l 




■ u. 


K f 


8 Vi 




•** 




V % ' < > • C 


a ft} 


MEMORY AND I/O EXPANSION MODULE (MEM) 

• 8K MEMORY EXPANSION-RAM/EPROM MIX 

• I/O EXPANSION TO 480 SINGLE-BIT PORTS 

• BUILT-IN EPROM PROGRAMMER 


EXPAND YOUR UNIVERSITY BOARD! 

INCREASE THE VERSATILITY OF YOUR UNIVERSITY BOARD (TM 990/189) BY KEEPING 
YOUR UTILITY PROGRAMS 'ON LINE*. THE MEMORY AND I/O EXPANSION MODULE MAKES 
THE UNUSED PORTION OF THE UNIVERSITY BOARD'S MEMORY SPACE AVAILABLE WITH 
CONVENIENT PARTITIONING. YOU CAN HAVE UP TO 8K OF ADDITIONAL MEMORY ON 
LINE, WITH ANY MIX OF READ/WRITE MEMORY AND EPROM; JUMPER SELECTABLE ON IK 
BOUNDARIES WITH POWER ON. 

FOR I/O-INTENSIVE APPLICATIONS, THE MEM HAS A 15-SLOT I/O SECTION WITH EACH 
SLOT ADDRESSING 32 BITS ON THE UNIVERSITY BOARD'S UNIQUE CRU BUS, THIS 
GIVES SINGLE- OR MULTI-BIT ACCESS TO 480 INDIVIDUAL I/O POINTS. 

THE MEM HAS A BUILT-IN PROGRAMMER FOR TMS 2708 AND 2716 EPROMS, WITH 
PROGRAMMING SOFTWARE CAPABLE OF BEING LOCATED AT FOUR ADDRESSES, THIS 
SOFTWARE ALLOWS YOU TO COPY NEW CODE FROM EXISTING ROMs OR DIRECTLY FROM 
THE READ/WRITE MEMORY USED TO DEVELOP THE CODE, 


MEMORY AND I/O EXPANSION MODULE 
(Assembled and tested with complete User's Manual) 
$199.95 plus $5 postage and handling 
(Texas residents please add 5% sales tax) 


George Goode & Associates, Inc, 


12606 GREENVILLE AVENUE 
SUITE 100 
DALLAS, TX 75243 
PHONE (214) 690-0595 


Applesoft to Tl BASIC ... from p. 44 

MULTISTATEMENT LINES 

A key point about APPLESOFT that I haven't yet men¬ 
tioned is that it allows multiple statements on one line 
number. Each statement is separated by a colon. This 
allows code like: 

10 X=X+1 :Y=Y+1 :Z=Z+1 

The biggest problem with translating multistatement lines 
is that there may not be available line numbers to assign to 
the converted statement lines. For example: 

400 A=A+1 :FOR 1=1 TO X:B=I*A:NEXT I 

401- - GQSTJB" 403 

402 RETURN 

403 REM 

404 GOSUB 600 

405 A=A+10 

406 RETURN 

The problem here is that there is no room to separate the 
multiple statements on line 400. 

One way*around this is to use a line number translation: 
Multiplying^all line numbers by 10 allows you space to insert 
the extra lines of code. The translated code is as follows: 


4000 

A=A+1 

4002 

FOR 1=1 TO X 

4004 

B=I*A 

4008 

NEXT I 

4010 

GOSUB 4030 

4020 

RETURN 

4030 

REM \ 

4040 

GOSUB 6000 

4050 

A=A+10 

4060 

RETURN 


IF-THEN-ELSE 

APPLESOFT does not require the ELSE feature of an IF 
statement because it allows other statements to follow the 
THEN part of the IF statement. The following shows how 
this works: 

10 IF X=A THEN X=X+1:Y=Y+1 
20 A=X+Y 

% 

• 

If X is equal to A, all statements following the THEN are 
executed. If X isn’t equal to A, the program simply advances 
to statement 20. The Tl BASIC equivalent is: 

10 IF X=A THEN 15 ELSE 20 

15 X=X+1 

16 Y=Y+1 
20 A=X+Y 

One result of multiple statements per line is that Tl pro¬ 
grams require much more coding and a concurrent increase 
in memory needed for code. Keep this in mind if you are 
tempted to enter a program requiring 16K RAM in APPLE¬ 
SOFT; it probably won’t fit in yourTI machine. [Of course, 
if you have the new Tl Extended BASIC, all this is moot, 
since thisCommand Module allows-multiple statement lines. 
See May/June, p. 28 —Ed-.] 

LOGICAL EXPRESSIONS 

Both interpreters allow logical expressions to be used as 
if they were numeric values. APPLESOFT treats true ex¬ 
pressions as if they are equal to 1, while false expressions 
are equal to 0. For Tl BASIC true expressions are —1, false 
are 0. Whenever converting code from APPLESOFT, just 
insert a ” in front of the logical expression: 

10 X=(0$=“A”)*5 

becomes 

10 X=—(0S=“A”)*5 

Continued on p. 52 
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Memory & I/O Expansion 

plus an 

EPROM Programmer 

for the 

TM 990/189 University Board 


By John Caulfield 

2211 West 119th Terrace 
Leawood, Kansas 66209 

I f you’ve been bitten by the 16 bit 
bug, then you’ve probably taken a se¬ 
rious look at Texas Instruments’ 
TMS 9900 family. About two years ago, 
Tl introduced the TM990/189 Universi¬ 
ty Board. It was originally designed as a 
tool to bootstrap oneself into the 16-bit 
world. The University Board itself packs 
a number of exciting features-a TMS 
9980A 16-bit CPU, integral 45-key 
alphanumeric keyboard and display, 
resident monitor and assembler, audio 
cassette interface, 16-bit programmable 
I/O port,2K RAM and 6K F.PROM/ROM 
plus over 500 pages of tutorial text. 

A new member has now been added 
to the University Board family. George 
Goode and Associates, Inc. offers an ex¬ 
tremely versatile memory expansion, 
I/O interface, and EPROM programmer 
to work in concert with the TM990/189. 

The memory portion of the module 
expands the system memory to the full 
address capability of the TMS9980A 
CPU-i.e., 16K bytes. The University 
Board itself has a capacity for 8K bytes 
(6K ROM/EPROM and 2K static RAM); 
the expansion module provides the 
other 8K capability. And it does so with 
utmost flexibility. Read on, all you 
memory addicts! 

Sockets are provided for8K bytes of 
EPROM using type 2716 EPROM or 4K 
bytes using type 2708 EPROM. There 
are also sockets for 8K bytes of static 
RAM. The unit allows access to any 
possible 8K combination of EPROM or 
RAM configurable on IK boundaries 
(2K boundaries if you use type 2716 
EPROMs)*- Now that’s how I spell 
memory relief! 

All that is necessary to alter the 
RAM/EPROM configuration is to 
change the wire jumpers on the memory 
configuration socket. It is not necessary 
that EPROM and RAM occupy contig¬ 
uous areas of memory; you need only 
observe the boundary restrictions. Oh 
yes, this is a BYOMC (bring your own 
memory chips) product, but that should 
not present any problems to the enter¬ 
prising user. You’ll need to acquire either 
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four type 2708 or 2716 EPROMs and a 
maximum of sixteen type 2114 RAMs. 

The expansion module provides a 
motherboard for an I/O part called the 
Communications Register Unit (CRU). 
The CRU is unique to the Tl 990 com¬ 
puter family (of which the University 
Board is a member). It is used only for 
data transfers to or from external de¬ 
vices and is the serial port through which 
the microprocessor communicates with 
the outside world. 

The CRU provides a serial transfer of 
one or more bits in or out of the CPU 
via two dedicated pins on the 9980A 
-CRUIN and CRUOUT. A clock, 
CRUCLK, is used as a time strobe to 
coordinate data transfers. Use of the 
CRU does not subtract from any avail¬ 
able memory locations, and it is separate 
from the data bus. 

The major advantage of the CRU is 
“bit diddling.’’ A single bit (or multiple 
bits up to 16) may be changed in the 
CRU output scheme. A single bit is all 
that is necessary to monitor or change 
the status of a motor, relay, switch, etc. 
The University Board allows easy access 
to 512 CRU bits. On the University 
Board itself, interfacing to 16 bits of 
CRU is provided. The motherboard on 
the expansion module provides capabili¬ 
ty to interface to the remaining CRU 
bits. The motherboard portion of the 


expansion module has positions for 15 
individual interface boards. Each of 
these I/O boards can be implemented as 
32 I/O bits. 

Discrete hardware devices can be 
used on the individual boards for decod¬ 
ing the address bits. Complete imple¬ 
mentations of this scheme would allow 
the user to directly control and/or mon¬ 
itor nearly 500 separate events! The 
user, however, must provide the inter¬ 
face boards to mount in the 22-position 
edgeboard connectors (contacts are on 
.156 inch centers). To help get started, 
the expansion module comes with two 
edgeboard connectors (plus interface 
and power supply cables). Users can at¬ 
tach additional connectors and I/O 
boards as required. 

An EPROM programmer is also in¬ 
cluded on the board for type 2708 and 
2716 EPROMs. The software driver has 
programming circuitry to automatically 
adjust the procedure for either type of 
EPROM. 

The capabilities of this expansion 
module—with its flexible memory, I/O 
and EPROM programmer—are indeed 
impressive. I’ve found it to beautifully 
compliment the TM990/189 University 
Board by providing a complete labora¬ 
tory environment to totally disect the 
16-bit Texas Instruments TMS9900 
architecture. 


diagram of Memory Expansion, I/O interface, and EPROM programmer, 
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Space War... from p. 39 

3550 

CALL HCHARCI,F,32) 

3560 

IF AOI THEN 3590 

3570 

IF BOF THEN 3590 

3580 

GOTO 5510 

3590 

IF COI THEN 3620 

3600 

IF DOF THEN 3620 

3610 

GOTO 5510 

3620 

NEXT I 

3630 

GOTO 2200 

3640 

IF Z=97 THEN 3660 

3650 

IF 20105 THEN 3790 

3660 

FOR 1=6+1 TO 24 

3670 

CALL GCHAR(I,F,P) 

3680 

GOSUB 6050 

3690 

CALL HCHAR(I,F,112) 

3700 

CALL HCHAR(I, F,32) 

3710 

IF AOI THEN 3740 

3720 

IF BOF THEN 3740 

3730 

GOTO 5510 

3740 

IF COI THEN 3770 

3750 

IF DOF THEN 3770 

3760 

GOTO 5510 

3770 

NEXT I 

3780 

GOTO 2200 

3790 

IF Z=9B THEN 3810 

3800 

IF Z< >106 THEN 3940 

3810 

FOR I=F+1 TO 32 

3820 

CALL GCHAR <E,I.P) 

3830 

GOSUB 6050 

3840 

CALL HCHAR(E,1,112) 

3850 

CALL HCHAR <E,1,32) 

3860 

IF AOE THEN 3890 

3870 

IF BOI THEN 3890 

3880 

GOTO 5510 

3890 

IF COE THEN 3920 

3900 

IF DOI THEN 3920 

3910 

GOTO 5510 

3920 

NEXT 1 

3930 

GOTO 2200 

3940 

IF Z=99 THEN 3960 

3950 

IF ZO107 THEN 4090 

3960 

FOR I=F-1 TO 1 STEP -1 

3970 

CALL GCHAR<E f l,P) 

3980 

GOSUB 6050 

3990 

CALL HCHAR(E,I,112) 

4000 

CALL HCHAR <E, I •32) 

4010 

IF AOE THEN 4040 

4020 

IF BOI THEN 4040 

4030 

GOTO 5510 

4040 

IF COE THEN 4070 

4050 

IF DOI THEN 4070 

4060 

GOTO 5510 

4070 

NEXT I ‘ 

4080 

GOTO 2200 

4090 

IF Z=100 THEN 4110 

4100 

IF ZO1O0 THEN 4260 

4120 

FOR I-E-l TO 1 STEP -1 

4120 

F=F+i 

4130 

IF F=33 THEN 4250 

4140 

CALL GCHAR(I,F,P) 

4150 

GOSUB 6050 

4160 

CALL HCHAR(I,F s 112) 

4170 

CALL HCHAR < I, F f 32) 

4180 

IF AOI THEN 4210 

4190 

IF BOF THEN 4210 

4200 

GOTO 5510 

4210 

IF COX THEN 4240 

4220 

IF DOF THEN 4240 

4230 

GOTO 5510 

424C 

NEXT I 

4250 

GOTO 2200 

4260 

IF Z= 2 01 THEN 4280 

4270 

IF ZO109 THEN 4430 

4280 

% 

FOR I=E-1 TO 1 STEP -1 

4290 

F=F—1 

4300 

IF F=*0 THEN 4420 

4310 

CALL GCHAR<I T F,P> 

4320 

GOSUB 6050 

4330 

CALL HCHAR < I, F,112) 

4340 

CALL HCHAR(I,F,32) 

4350 

IF AOI THEN 4380 

4360 

IF BOF THEN 4380 

4370 

GOTO 5510 

4380 

IF COI THEN 4410 

4390 

IF DOF THEN 4410 

4400 

GOTO 5510 

4410 

NEXT I 

4420 

GOTO 2200 


Continued on p. 51 
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A 99'er Hardware Tutorial 


Frugal Floppies: 

Adding Your Own Disk Drives 


By Richard M. Bies 

217 Park Entrance Drive 
Pittsburgh, PA 15228 


F or those of you who long for the 
speed and power of a disk drive 
but shrink from the price tag,there 
is possible relief—a surplus drive at a frac¬ 
tion of list price. But before getting into 
the technical details of how to hook up 
one to your TI-99/4, let’s first take a 
look at how a disk system operates. In 
effect, a disk system constitutes a second 
computer -one controlled by the Tl- 
99/4. It contains RAM, ROM, process¬ 
ing and control units, plus the drive it- 
se f-a high precision electro-mechanical 
device that spins, reads data from, and 
writes data to a magnetic disk. 

The disk itself is a circular piece of 
magnetic medium, much like the record¬ 
ing tape in a cassette. It has a large, cen¬ 
tral hole into which the hub of the drive 


fits and by which the disk is spun (at 
about 300 rpm). There is also a small 
hole a short distance further out, by 
which the disk is indexed. A disk is en¬ 
closed in a square cnvelope(the “jacket”), 
with cut-outs for the central hub, the in¬ 
dex mark, the read-write head of the 
drive, and a write-protect notch in the 
edge. These disks are referred to as 
“floppies” or “floppy disks” because of 
their flexibility-in contrast to hard or 
rigid disks used on larger computer sys¬ 
tems. Floppies and their corresponding 
drives are presently available in two 
sizes: 8 inches and 514 inches. The drives 
that are compatible with the TI-99/4 
disk controller are of the smaller variety. 

A floppy disk is said to have tracks 
and sectors. Actually, the magnetic 
material is homogeneous-the tracks and 


tracks and sectors are marked magnetic¬ 
ally on the disk (by a software-controlled 
stepping motor that moves the read- 
write head in or out), together with the 
name of the disk and other information. 
The tracks arc concentric paths begin¬ 
ning with the first one near the outer 
periphery of the magnetic disk, and the 
last one outside the index hole toward 
the center of the disk. The T! Disk Con¬ 
troller is programmed to deal with either 
40 or 35 such concentric tracks. The 
mechanical and electronic characteris¬ 
tics of the drive determine and specify 
the number of tracks available. (Oldcr 
mini-floppy drives have 35, 40, or 44 
tracks. Newer design “double-density” 
drives tend to have 77 tracks.) 

Each track is further divided into a 
number of pie-shaped radial sections 
called sectors) theTI system is comprised 
of 9 sectors per track. These sectors are 
physically located on the disk with ref¬ 
erence to the index hole: A small light 
shines on one side of the disk’s surface. 
When the index hole passes between this 
light and a photocell located on the 
other side of the disk’s surface, the light 
strikes the photocell, and the resulting 
synchronization signal indexes the sec¬ 
tors for each revolution of the disk. Each 
packet of information thus has a track 
and sector address. And for each file 
name or program name, these addresses 
are automatically recorded in the first 
track of the disk. (Because of this index 
information and the location markers in 
each sector, the actual information 
which can be stored is approximately 
88K bytes of the 109K bytes available 
on the disk.) -When the disk is accessed, 
the head is sent to the proper location 
to read the file requested, or to an emp¬ 
ty sector to record the new data. Alter¬ 
nately, if the file requested is not listed 
as being present on the disk, or if the 
disk is full or “write-protected” (not 
allowing any more data to be placed on 
the disk), the controller software returns 
an appropriate error message for display 
on the screen. 

So in effect, it is the disk controller 
that stands between the disk drive and 
the computer to perform the parallel- 


sectors are created by the drive. Thus 
when a disk is “initialized” (made read^ 
for use) in the TI-99/4 system, these 



Photo 1. 
This is the Shugart 
SA400 surplus drive, 
basically as we 
received it. 
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serial data transformations, time the 
inputs and outputs, interpret and relay 
the signals, and in the case of the Tl- 
99/4, take control of part of the com¬ 
puter to accomplish the interface. (The 
most noticeable manifestation of this is 
the loss of approximately 2K bytes of 
RAM—memory taken over by the con¬ 
troller for input and output. This is the 
reason longer programs can be loaded 
and RUN from tape when disk controller 
is turned off.) 

The disk system gains its superiority 
over the cassette system because this 
combination of sophisticated electronics 
and precision electro-mechanics allows 
data to be found quickly at any part of 
the disk. This is possible because the 
head can be moved rapidly from the 
outer track to the inner track and inter¬ 
cept the rotating sectors (going by the 
head 5 times per second). Furthermore, 
the effective data transmission rate—100 
times faster than cassette—is augmented 
by standard disk system features that 
include cataloging, searching, and pro¬ 
tecting the data on the disk. All in all, a 
remarkable system . . . nearly unbelieva¬ 
ble in its reliability. 

Hooking Up the Components 

Now that we’ve discussed how the 
disk drive system operates, let’s see how 
we can hook up surplus or budget drives 
to our Tl Disk Controller. From an 
article in the March-April 1981 issue of 
Science and Electronics (now named 
Computers and Programming) I learned 
of the abundance of single-density, mini¬ 
floppy {5'A inch) drives on the surplus 
market (selling for $100 to $160 each). 
These drives are currently being replaced 
by higher capacity ones (double-sided, 
double-density), larger ones (8 inch), or 
hard disks (of the multi-megabyte Win¬ 
chester type). 

The drive I purchased was a Shugart 
SA-400 single-sided, single-density 35- 
track unit that was formerly installed in 
Wang equipment. (The Shugart SA-400 
is the industry standard single-sided, sin¬ 
gle-density mini-floppy drive. Other 
brands, Siemens, MPI, Teac, etc., are 
made to the same dimensions and elec¬ 
tronic specifications.) Since this unit 
was removed from other equipment, it 
came without case, power supply, data 
cable, or terminating resistor. (See Pho¬ 
to 1.) This is typical of the cheapest 
drives you’ll be most likely to find. Oc¬ 
casionally jiew units are available, and 
occasionally a case for the drive itself is 
included. For that matter, units designed 
for the TRS-80 computer—which are 
completely compatible by the way- 
may be available for a reasonable price, 
with power supply and case included. If 
the unit has neither case nor power sup¬ 
ply, these components are available as 
an assembled package. The cost should 
be around $50, although I was unable to 
find one in stock at that price at the 
time I needed it, and settled for the Vista 



Photo 2. This is the Vista VIS 9801 
case with power supply. 


VIS 9801 at $75. (See Photo 2.) If the 
drive comes with only a case, separate 
power supplies are available, starting 
around $30. 

This cabinet package, however, usual¬ 
ly does not include the data cable. Again, 
the parts are standard, but not necessari¬ 
ly easy to find. Since the data cable con¬ 
nector on the Tl Disk Controller and 
the connector on the circuit board of 
the drive are both male 34-pin edge- 
card type connectors, a 34-conductor 
edge-card to edge-card cable is required. 
The length can be 6 inches to a few feet; 
if less than 18 inches or so, the drive 
must be placed atop the controller, prob¬ 
ably the wrong place for extended use. I 
had a 3-foot one made up at cost of $20. 
(See Photo 3.) A patient shopper should 
be able to get one for $10 to $15. (Try 
Radio Shack part #RS 260-1406 for 
$19.95 as a possibility, or purchase the 
connectors for $4 to $5 and cable for 
about 60 cents per foot, and fabricate 
one yourself.) 



Photo 3. This is the three-foot-long 
34-conductor edge-card to 
edge-card data cable. 

Finally, the circuit board on the drive 
must be correctly configured. This in¬ 
volves the shunt and terminating resistor. 
(See Photo 4.) The shunt is simply a set 
of connections across an 1C socket (lo¬ 
cated next to the board’s edge connec¬ 
tor) which provides a path for the drive 
number signals coming from the con¬ 
troller (tagged "A” on Photo 4). Any 
drive will probably have one in place, al¬ 
though it may not be intact or correctly 
positioned for the T1-99/4. The shunt is 
usually a 6-conductor, 12-pin device in a 
14-pin socket. The two end positions 
are labeled “HS” and “HM.” The drive 
I received had the shunt positioned to 
the “HM” end, with “HS” empty. The 
Science and Electronics article suggested 
that most personal computers required 
the “HS” connection. Accordingly, I re¬ 
moved and reinserted the shunt to the 
“HS” end. 

The DS1 (Drive-Select), DS2 and 
DS3 connections (marked on the cir¬ 
cuit board adjacent to the socket) arc 


Photo 4. This is the circuit board on the drive, with the shunt (A) and the 
terminating network (B) at upper left. 
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for turning on the correct drive in mul¬ 
tiple drive applications. As ! was plan¬ 
ning one drive only, I left all the shunt 
connections intact. (See Photo 5.) Of 
course, in a multiple drive application, it 
would be necessary to experiment with 
these connections, bending two pins out 
at a time so they do not enter the socket, 
to determine which DS line the control¬ 
ler is usingforeach drive.The controllers 
know the drives as DSK1., DSK2., and 
DSK3., but do not necessarily use DS1 
for DSK1. and DS2 for DSK2., etc. The 
Science and Electronics article advised 
that in TRS-80 applications all DS lines 
can be left wired, as the selection is 
taken care of by discontinuities in their 
data cables. I understand that the Tl- 
99/4 uses a similar approach. Presuma¬ 
bly, if you can get Tl data cables, you 
can leave all shunts connected even in 
multiple drive connections. The bottom 
line is that between shunt connections 
and data cables, you and your controller 
must come to a common understanding 
of which drive is which. 

The Science and Electronics article 
also suggests that the “MX” connection 
isnot used in multiple drive applications. 
Speculatingon the Radio Shack practice, 

I would suspect that one “MX” connec¬ 
tion should still be intact, and the entire 
matter may be taken care of in the data 
cables. At any rate, I defer to someone 
else to make the definitive statement as 
to multiple-drive shunt configuration, as 
I have not tried it. 

The other plug-in is the terminating 
network. This is the next 1C socket in 
from the card edge after the shunt 
(tagged “B” in Photo 4). Again, if you 
get one in your drive-fine; if not, each 
system must have one such network. In 
multiple drive applications, the last 
drive on the cable should have it. (Radio 
Shack does this wrong, with the network 


Photo 6. On the back of the circuit board, three white pointers on the right 
side show the points where the circuit tracing was cut. 


installed on the first drive.) The network 
is simply a number of resistors-each 
equal in resistance to the characteristic 
impedance of the input lines-encapsul- 
ated in an 1C type package. (In the Shu- 
gart 400, the characteristic impedance is 
150 ohms. Other manufacturers’ drives 
could differ, but probably are the same.) 

I was able to order a terminating net¬ 
work for $1.00 from the same souce as 
the data cable. It is also possible to sim- 


Photo 5. This close-up shows the shunt (A) and the terminating network (B). 
The DS and other markings are to the left of the shunt socket. 


ply bend and clip the leads on 1/8 watt 
resistors of the appropriate resistance 
and insert them in the socket. The docu¬ 
mentation for the drive will tell you 
the characteristic impedance and show 
the pin numbers to be bridged. The 1C 
socket is 14 pins, but on the Shugart 
only five pairs have to be bridged. 

Testing It Out 

With the parts all collected and assem¬ 
bled, I borrowed a Tl Disk Controller 
and drive. F irst, we operated the standard 
system, and initialized a fresh disk. 
Then, unplugging the standard drive, we 
plugged in the surplus drive and found 
that it would read the prepared disk 
correctly. This test seemed to establish 
compatability and correct operation of 
the drive. 

However, when we attempted to write 
to the disk, the first and only hitch ap¬ 
peared. Every disk, including any fresh 
new disk, was always regarded as “write- 
protected” and wouldn’t accept any 
data. With the Tl Disk Controller, this 
signal (which prevents the write-enable 
signal from energizing the recording 
head) can arise either mechanically , as 
in putting tape over the write-protect 
notch in the disk jacket cover, or 
electronically , by virtue of encoding the 
disk itself by the routine in the Disk 
Manager Command Module.) 

We checked the drive and found that 
the micro-switch sensing the open notch 
seemed to operate correctly, but that 
the test point which should have dropped 
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to ground (0 volts) when the notch was 
open actually stayed high. We then re¬ 
moved the printed circuit board from 
the drive, and discovered that a resistor 
and a couple of wires had been added to 
the underside of the board. Study of the 
circuit board also revealed a couple of 
cuts in the circuit tracing (white pointers 
on Photo 6), and when compared to the 
schematics (you should be sure to get a 
copy of the documentation, including 
schematics), disclosed that the location 
of the cut leads and added circuits was 
indeed the write-protect circuit. Hence, 
it was highly probable that in its former 
use, the drive unit was configured for a 
read-only application. Yet it took a bit 
of courage (and philosophical reflection 
on the probable cost of a new board and 
the vagaries of Murphy’s Law) to apply 
the soldering iron to the board, remove 
the addition, and restore the original cir¬ 
cuit changes (as in Photo 6). [Note that 
electronic technicians frequently make 
minor circuit changes to perfect some 
application, to compensate for some 
design fault, or to adjust for a replace¬ 
ment part.] 

But Murphy was nowhere to be 
found ... and the drive actually worked! 
It seems clear to me, now that I’ve been 
through it, that adding a “foreign” drive 
(a single-density TRS-80 Model 1 or 
other standard drive) to the T1-99/4 
Disk Controller shouldn’t be feared. The 
more adventuresome among you can 
save even more by careful shopping and 
collecting the needed parts. Keep in 
mind, however, that most surplus drives 
and some others as well (such as the 
Apple’s) will not have a power supply. 
Also, some of the component pieces can 
be a bit hard to locate, and can, in fact, 
cost more than would seem reasonable. 

I have seen bare drives, without even 
a circuit board, offered for $80 (as in 


Photo 7). It may be worthwhile to ex¬ 
plore the cost of a new circuit board for 
one of these. (I expect the circuit boards 
are not interchangeable among brands; 
thus it would be necessary to determine 
the brand of the drive, and shop for a 
circuit board for it.) This would insure 
that any problem should be limited to 
the mechanics of the drive, and these 
seem reasonably reliable. The board is 
attached to the drive electrically with a 
couple of plugs, and mechanically with 
a couple of screws. 

It remains for each reader to decide 
how adventuresome he wishes to be. I 
will admit to having a BSEE (’58) in my 
background, and even having studied 
the basics of digital computing back 
then. As I followed other callings, how¬ 
ever, this training has lain dormant in 
the intervening years, during which a 
few things have happened in the field 
(such as disk memory). Presently, my 
most sophisticated test equipment is a 
$12 multi-meter. Clearly, problems with 
pulse timing would be over my head. 
Yet with much of the sophisticated elec¬ 
tronics around today, actual failures are 
very often simple matters of continuity 
-of the type the added circuit and cut 
traces (described in this article) pre¬ 
sented. I would urge anyone who can 
follow a schematic diagram, who would 
like to save some money, and who enjoys 
the satisfaction of knowing what’s inside 
those “black boxes” to give it a try. 


A Note About Drives 

99’er Magazine’s technical editors have 
found that in addition to the Shugart 
drive, both Siemens and MPI drives also 
work. The Tcac drive, however, doesn't 
appear to be compatible because of its 
slower track-to-track access time. 


Photo 7. This shows the bare drive without the circuit board. 


Space War . . . from p. 47 

4430 IF Z=I02 THEN 4450 
4440 IF 20110 THEN 4600 
4450 FDR I=E-*-l TO 24 
4460 F=F+I 

4470 IF F=33 THEN 4590 
4480 CALL GCHARCI,F,P) 

4490 SOSUB 6050 

4500 CALL HCHAR <1,F,112) 

4510 CALL HCHAR(I,F,32) 

4520 IF AO I THEN 4550 

4530 IF SOF THEN 4550 

4540 GOTO 5510 

4550 IF COI THEN 4580 

4560 IF DOF THEN 4580 

4570 GOTO 5510 

4580 NEXT I 

4590 GOTO 2200 

4600 FOR I =£4-1 TO 24 

4610 F=F—1 

4620 IF F=C> THEN 4740 
4630 CALL GCHAR(I,F,P> 

4640 GOSUB 6050 

4650 CALL HCHAR< I, F .112) 

4660 CALL HCHAR( I , F , 32 ) 

4670 IF AOI THEN 4700 
4680 IF BOF THEN 4700 
4690 GOTO 5510 
4700 IF COI THEN 4730 
4710 IF DOF THEN 4730 
4720 GOTO 5510 
4730 NEXT I 
4740 GOTO 2200 
4750 C=C+i 

4760 IF C<>25 THEN 4780 
4770 C=1 

4780 CALL GCHAR<C„D.P> 

4790 GOSUB 6140 

4800 IF V=1 THEN 5510 

4810 CALL HCHAR<C,D,105) 

4820 GOTO 2200 
4830 C=C-1 

4840 IF COO THEN 4860 
4850 C=24 

4B60 CALL GCHAR<C,D,F*> 

4870 GOSUB 6140 

4880 IF V=1 THEN 5510 

4890 CALL HCHAR(C,D,104» 

4900 GOTO 2200 
4910 D=D+1 

4920 IF D< >33 THEN 4940 
4930 D=1 

4940 CALL GCNAR<C„D,P) 

4950 GOSUB 6140 

4960 IF V=1 THEN 5510 

4970 CALL HCHAR<C,B f 106> 

4980 GOTO 2200 
4990 D=D— 1 

5000 IF D< >0 THEN 5020 
5010 B=32 

5020 CALL GCHAR < C,D,P > 

5030 GOSUB 6140 

5040 IF V=1 THEN 5510 

5050 CALL HCHAR(C,D.107) 

5060 GOTO 2200 
5070 e=C-l 
5080 D=D+1 

5090 IF COO THEN 5110 
5100 C=24 

5110 IF D<>33 THEN 5130 
5120 D=1 

5130 CALL GCHAR(C„D,P) 

5140 GOSUB 6140 

5150 IF V=1 THEN 5510 

5160 CALL HCHAR(C.D,108) 

5170 GOTO 2200 
5180 C=C~1 
5190 D=D—1 

5200 IF COO THEN 5220 
5210 C=24 

5220 IF D< >0 THEN 5240 
5230 D=32 

5240 CALL GCHAR<C,D,P) 

5250 GOSUB 6140 

5260 IF V=1 THEN 5510 

5270 CALL HCHAR(C, D, 109 > 

5280 GOTO 2200 
5290 C-C+l 
5300 D=D+1 

_Continued on p. 53 
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DENALI DATA DESIGN 
ARTI-STIC" 

JOYSTICK ADAPTER 

Allows the use of faster, 
smoother-acting, low cost, 

Atari™ Joystick on Tl 99/4 & 4A 

JUST PLUG IN AND PLAY 

$20 postpaid 

Adapter + 2 Atari Joysticks 

S35 

Please add $2.00 for shipping 


OTHER PRODUCTS NOW OR SOON AVAILABLE FROM DENALI DATA DESIGN 



SCREEN GRAPHICS LAYOUT SHEETS (including sprite definition grids) 

MONITOR SCREEN OVERPLAY (grid on clear film to find where those characters are really at.) 
CODING SHEETS (basic & x-basic) 

RDVY 

* ARTI-STlCtJOYSTICK ADAPTER) allows the use of faster, smoother-acting, low cost, atari™ 

JOYSTICKS ON Tl 99/4 & 4A JUST PLUG IN AND PLAY 

* JOYPAD' PLUGS INTO JOYSTICK CONNECTOR ON 99/4 & 99/4A AND ALLOWS DIREC¬ 
TION & NUMERIC ENTRY IN ONE HAND HELD UNIT, (requires support software —supplied in 

BASIC AND X-BASIC ON TAPE OR DISK.) 

* 9 PIN & 25 PIN EXTENSION CABLES (same plugs as on joystick, cassette & RS-232 ports.) 

* STACKER BUS’“ (ALLOWS VERTICAL STACKING OF UP TO 4 PERIPHERAL DEVICES.) 

* BACKER BUS'“ (allows placement of peripherals behind console.) 

* SPLIT-T BOX™(DOUBLE T-SWITCH FOR RS232. ALLOWS FOUR DEVICES TO BE PLUGGEDl 
INTO RS232 WITH HARDWARE SWITCHES TO ELIMINATE THE NEED FOR CABLE¬ 
SWITCHING.) (SOFTWARE SWITCHABLE AVAILABLE LATER THIS YEAR.) 

* CHECK BOOK RECONCILIATION (requires joypao) 

* SCREEN TO EPSON MX80™ BLOCK GRAPHICS DUMP (requires joypao) 

Db< 1 ]pf 

Inquiries SEND 0R CALL F0R To11 Free 1 -800-654-8499 1413 N. McKINLEY 

Invited FURTHER INFORMATION: In OK dial 1-405-524-7764 OKC, OK. 73106 


Applesoft to Tl BASIC ... from p. 45 
AND/OR 

APPLESOFT allows multiple IF tests to be combined us¬ 
ing the Boolean operators AND and OR. Tl BASIC also al¬ 
lows this using the “*” and “+” arithmetic expressions re¬ 
spectively. For example: 

10 IF (A=B) AND (C=D) THEN X=X+1 
is replaced with 

10 IF (A=B)*(C=D) THEN 15 ELSE. 

15 X=X+1 

In some cases, a straight conversion of the APPLESOFT 
IF... THEN will result in wasteful code. It is always a 
good idea to understand the purpose of the tests being 
made, and if possible, re-code them more efficiently. For 
example: 

10 IF (A=B) AND (C=D) THEN X=X+1 
20 Y=Y+1 

would convert to: 

10 IF (A=B)#(C=D) THEN 15 ELSE 20 
15 X=X+1 

20 Y=Y+1 

but it would, take less code (and therefore less core!) to in¬ 
vert the test: " ' 

10 IF (A<>B)+(COD) THEN 20 
15 X=X+1 
20 Y=Y+1 

SPECIAL FUNCTIONS 

Each interpreter has special functions oriented toward 
the manufacturer’s hardware. Some of these are similar to 
other functions available in a different computer. I will on¬ 
ly list the"ones most commonly seen in APPLESOFT pro¬ 
grams. 

CLEAR Initializes all variables. Automatically done by 

Tl BASIC as part of ‘RUN’ning. 

HIMEM Sets highest and lowest memory available to 
LOMEM 

BASIC, No equivalent in Tl BASIC. 

FRE(0) Gets amount of available memory left. 

PDL(N) Gets joystick input. Use CALL JOY ST instead. 

The PDL function returns with values from 0 
to 255. Figuring out exactly what’s happening 
using PDL in an APPLESOFT program is dif- 
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ficult because if the value N is 0 to 3, you are 
referencing the joysticks. (Values from 4 to 
255 can do wierd things.) Luckily, the APPLE 
joysticks don’t seem to be used much. Also, the 
only way to test for the ‘FIRE’ buttons is to 
PEEK(-16287) through PEEK(-16284) for 
paddles 0 thru 3. 

POP Cancels the last GOSUB. This is mostly used in 

edit subroutines where an error causes the pro¬ 
gram to go to an error routine instead of RE-‘ 
TURNing. The only way to code an equivalent 
in Tl BASIC is to have the edit routine coded in 
an error switch which is interrogated as soon as 
the subroutine.RETURNs. 

ON ERR 

RESUME This tells APPLESOFT to GOTO a part of the 

program if it encounters certain errors while 
processing. In Tl BASld, any errors are either 
handled by the BASIC interpreter (e.g., dividing 
by zero), or cause the program to end (e.g., 
reading past the last DATA statement). The ON 
ERR is most often used to trap an error ex¬ 
pected by or consciously caused by the pro¬ 
grammer. For example, it is used in a program 
that is reading DATA statements containing the 
notes of a song. The ON ERR code is hit after 
the last note is READ and causes the program 
to execute a RESTORE, starting the song all 
over again. The RESUME acts like a RETURN 
and brings the program back to the point where 
the error occurred. 

USR(X) Jump to a machine language subroutine. 

As you can see from the foregoing, converting most code 
from APPLESOFT to Tl BASIC is straightforward with 
most of the effort devoted to converting PRINT state¬ 
ments. Most importantly, don’t get frustrated if your 
first attempts don’t succeed the way you intended. After 
a while, it will all become second nature. 
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Custom Peripherals from 


CompuTech 


-We Mak’em to Order- 

Separate your Peripherals 
with custom, shielded, 1/0 

cables from CompuTech. 

100 Y$ = Your Choice 
110 Length = 1 Ft *Y$ 

120 Price = 24.00+(Length*4.00) 

417 - 869-1684 

Dealer Inquiries Invited 

CompuTech 


Numeric Data Entry is a 
With a Computech “SPEED KEY” 

Designed for the Tl 99/4 or /4A. 

The “SPEED KEY” docks directly into the 
console (RS 232 not Required). Required support 
software is resident in the “SPEED KEY” and no 
external power supply is required. Comes 
complete and ready to use. Price 169.95 + 
Shipping. (Allow 3-4 wk. Del.) 


209 E. Walnut 


Springfield, MO 65806 


Space War... from p. 51 

5310 IF C< >25 THEN 5330 
5320 Ol 

5330 IF D<>33 THEN 5350 
5340 D—l 

5350 CALL GCHAR(C,D,P) 

5360 GOSyB 6140 

5370 IF V=1 THEN 5510 

5380 CALL HCHAR<C,D,110) 

5390 GOTO 2200 

5400 C=C+1 

5410 D-D-1 

5420 IF C< >25 THEN 5440 
5430 C«=l 

5440 IF DOO THEN 5460 
5450 D*32 

5460 CALL GCHAR(C,D,P> 

5470 60SUB 6140 

5480 IF V*1 THEN 5510 

5490 CALL HCHAR(C,D,111) 

3500 GOTO 2200 

5510 CALL SOUND(1000,-5,0) 

5520 IF 6-2 THEN 5560 

3530 E=C 

5540 F*D 

5530 GOTO 5580 

3360 E-A 

5570 F»B 

3380 CALL HCHAR(E,F,136) 

3390 CALL COLOR(14,2,2) 

5600. IF F+l<33 THEN 5620 
5610 ai*i 

5620 IF F—1>0 THEN 5640 
5630 Bl-1 

5640 IF E-l<1 THEN 5700 
5650 IF Bl*l THEN 5670 
5660 CALL HCHAR(E-l,F-l,138) 
5670 IF Al*l THEN 5690 
5680 CALL HCHAR<E-1,F-M ,137) 
5690 CALL HCHAR(E-l,F,139) 
5700 IF E+l>24 THEN 5760 
5710 IF Al=l THEN 5730 
5720 CALt HCHAR(E+2,F+1,138) 
5730 IF 31-1 THEN 5750 
5740 CALL HCHAR (E+l,F-l,137) 
3750 CALL HCHAR(E+l,F,139) 
5760 IF Bl-1 THEN 5780 
3770 CALL HCHAR<E,F-l p 140) 
3780 IF Al = l THEN' 3800 
5790 CALL HCHAR(E,F+l,140) 
5800 FOR 1-1 TO 10 
5B10 CALL COLOR(14,2,2) 

5820 CALL COLOR<14,7,2) 

5B30 NEXT 1 

5840 IF PT< >9 THEN 5880 
5B50 PRINT “TIE GAME! 41 : 

5860 PT-0 

5870 GOTO 5980 

5880 IF PTS>0 THEN 5900 


it 


5890 PTS=3 

5900 IF G=2 THEN 5950 
5910 PRINT “BLUE WINS!” 

3920 BL-BL+PTB 
5930 PTS-0 
5940 GOTO 5980 
5950 PRINT “YELLOW WINS!” 

5960 YL-YL+PTS 
5970 PTS-0 

5980 PRINT 11 SCORE: BLUE “&STR* 

< BL >*< M , YELLOW ”&STR*(YL>S< 
5990 YPR-50 
6000 BPR=50 

6010 INPUT “PLAY AGAIN*?” 

6020 IF SEB*(BS,1,1)<>“N” THEN 
1800 

6030 CALL CLEAR 
6040 STOP 

6050 FOR X—144 TO 147 

6060 IF POX THEN 6120 

6070 IF Z >103 THEN 6100 

6080 BL=BL-1 

6090 GOTO 2200 

6100 YL=YL-1 

6110 GOTO 2200 

6120 NEXT X 

6130 RETURN 

6H0 IF P*32 THEN 6200 

6150 IF P<144 THEN 6160 ELSE 6180 

6160 PT=9 

6170 GOTO 6190 

6180 PTS=3 

6190 V=1 

6200 RETURN V" 

6210 FOR X-144 TO 147 
6220 IF POX THEN 6250 
6230 V=1 
6240 RETURN 
6250 NEXT X 
6260 RETURN 

6270 PRINT “YELLOW RUNS OUT 
OF FUEL." 

6280 PTS=2 
6290 GOTO 5910 
6300 PRINT "BLUE RUNS OUT 
OF FUEL-" 

6310 PTS-2 
6320 GOTO 5950 
6330 END 



See Inside Back Cover 

(page 95) 
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06796 


Sunshine Software 

• • CRIBBAGE • • 

Play against the T1-99/4. Computer plays 
the able opponent. 

• • QUBIQ •• 

A unique mind-boggling puzzle. Full 
Color & Graphics. 

• •SPIRAL-GRAPHICS •• 

Crwites thousands of amazingly beautiful 
patterns in High Resolution. You specify 
the pattern, the computer does the rest. 

• • OBSTACLE COURSE • • 

Can you make it through this game of 
logic? Deduction tells you where the 
obstacles are. 

$8.95 each; 4 for $24.95 
Cassette only; Tl BASIC 
Complete documentation included 

Sunshine Software 
520 Milton Lane 
Hoffman Estates, IL 60194 
Tel (312)-885-2862 
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Faster than a speeding alien laser, 

More powerful than an 8-bit data train, 
Able to leap tall sorts in a single bound , 
Look — Up in the high RAM — 

It's an editor. . . It's an assembler. . . 


IT'S 



Language/ 


In this issue we interrupt out tutorial suites on / MS l W()U 
Machine and ,lss('/n/>/t / ani/uage I’ttujy. /wnuh/ so that nr 
may introduce an i \citina new p/ndui! u hich w ill yuan he 
u\ a liable on the I l-9 ( )!-i(AI. / in mv ;< ■, will n vane n ith Fat! 
d it) the X/n vmhei f/)e< etuhet issue. 


y Patricia Swift 

Assembly Language Editor (The Human One) 


B efore getting into the details of Tl’s new Editor/Assem¬ 
bler package, we should first consider what an assembler 
is and what it can do for us. Most readers are already 
familiar with the Tl BASIC language, and many have already 
experienced the disk-oriented features of Extended BASIC. 
These BASIC’s are “interpreted” languages. This means that 
when a program is being run, each BASIC statement is con¬ 
verted (interpreted) to machine language-the binary ones 
and zeros.that the computer understands-and then executed. 
Since a single BASIC statement usually generates several ma¬ 
chine instructions, programs can execute relatively slowly. 
This is especially true in programs containing loops, because 
each statement in a loop is interpreted each time it is en¬ 
countered. 

in contrast, assembly language programs are “assembled” 
before they are run. This means that the assembly language 
statements are converted to machine language by the assem¬ 
bler; it is the machine-language (or “object”) program which 
Is -run. That is why programs written in assembly language 
run. so.T&t; there is no waiting for each instruction to be in¬ 
terpreted at runtime. Programming in assembly language, 
however, does involve an extra step which is not apparent in 
BASIC programming-namely the assembler stage. BASIC 
programs are simply input and RUN, but assembly language 
programs must be input, then assembled, and RUN. 

Another major difference between BASIC and assembly 
language is the difficulty of writing programs. A BASIC pro¬ 
gram is relatively easy to code because the instructions are 
ErVglish-like and the programmer does not have to worry 
about where variables reside in memory, or have to under¬ 
stand the structure of the machine. Assembly language pro¬ 
grams, on the other hand, are harder and more time-consum¬ 
ing to code because the instructions are machine-oriented 
(seeTMS9900 Machine and Assembly Language Programming, 
part 2, in the july/August issue) and the programmer must 
understand the structure of the machine. Debugging assembly 
language programs is harder, too. But these difficulties are 
pot necessarily disadvantages, since an understanding of the 
machine allows a programmer to create more efficient pro¬ 
grams. Programming in assembly language is an education in 
itself, and is one of the best ways to learn how a computer 
works. 
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X programmer must consider these tradeoffs in choosing 
the best language for each application. In general, BASIC is 
faster to code and debug, but assembly language programs 
execute faster. Happily, Tl has made it possible to choose 
both by enabling Extended BASIC programs to CALL assem¬ 
bly language subroutines. This means th^t a programmer can 
write mainly in Extended BASIC and use ; as»mbly language 
for portions of the program where faster execution is required 
(such-as loops or especially sorts). This is a good way to ease 
into assembly language programming, and after some practice 
you may find yourself writing entire applications in assembly 
language. 

What follows is a preliminary look at Tl’s new Editor/As¬ 
sembler package. It is, however, only an overview of the pro¬ 
duct. Future articles will go into more depth on specific fea¬ 
tures of the software. , 



A PRELIMINARY LOOK 
AT THE NEW Tl 
EDITOR/ASSEMBLER 


V 

Software Media and Required Hardware 

The Editor/Assembler software resides in a Command 
Module and on a disk. To run it, you’ll need at least one disk 
drive and the 32K expansion RAM. Both the editor and as¬ 
sembler are selectable from menus, and most of tbft screens 
include easy-to-understand prompting messages. 

The Editor 

The editor is used to input assembly language source pro¬ 
grams initially, to update programs previously saved on disk, 
and to print programs. The editor’s features compare favora¬ 
bly to those of larger systems. 

























































i'a; 






CUMBERLAND 

TECHNOLOGY 

10 Wagner Drive 
Carlisle, PA 17013 

99/4(a) Programs 

4 • 

ENGINEERING 
MATH 

PROGRAMMING AIDS 
GAMES 

Many programs written in 
Assembly Language 

Please send name and address 
for a current list 


★ ★ TI-99/4 SOFTWARE ★★ 

TEXT EDITOR $80 

TEXT/99 - Allows entry, editing, 
disk or cassette storage and print¬ 
ing of your written text. Upper A 
lower case. Word oriented for 
fullest editing freedom: change, 
insert, delete or move. Chains files 
for long documents. (Manual 
$ 10 .) 

RSPECTIVE PLOTTING $199 

DRAW/99 - For architects, en¬ 
gineers. artists. True perspective 
or axonometric line drawings of 
any object you enter. Drives 
Mauro Eng. MP-250 plotter (11-in 
paper, about $800). (Manual $20.) 

NAVAL ARCHITECTURE 

99/4 programs for hull design, 
hydrostatics, performance and 
most marine design calculations. 
Inquire. 

LETCHER OFFSHORE DEMON 

P-O. Box 104. Southwest Harbor. MameO4079 
Tel. 207-244-7347 


Computer 
Assistance 


WE SPECIALIZE 
IN ASSEMBLER 
AND SCIENTIFIC 
PROGRAMMING FOR 
THE Tl 9900 FAMILY 


Computer Assistance 
82277 Weiss Road 
Creswell, OR 97426 

(503) 895-2012 





There are two editing modes: Edit Mode and Command 
Mode. Edit Mode is always used to input a program for the 
first time, although both modes can be used to change exist¬ 
ing programs after loading them from disk or typing them in 
Edit Mode. ' • 

Edit Mode is entered directly from the menu. The screen 
is a 40 x 24 window on the source program. Functon keys 
allow you to move this window to the right or left in 20- 
character increments, or up and down 24 lines at a time. 
(Since most of my assembler programs have fewer than 40 
characters per line, I tend to view the leftmost 40 characters 
and make heavy use of the up and down scrolling.) The four 
cursor keys are enabled in Edit Mode, making it especially 
easy to correct typographical errors. Whole lines can be in¬ 
serted into the text by moving the cursor to the adjacent 
line and pressing the Insert function key; a new blank line is 
inserted, and the user simply types in the new line. Similarly, 
a whole line can be deleted by moving the cursor there and 
pressing the Delete function key; the line is removed and the 
line numbers of the following lines are automatically decre¬ 
mented. There are also keys for inserting or deleting charac¬ 
ters. A Tab key is also provided for tabbing to columns 8 and 
16. Edit Mode makes it very easy to enter new programs, be¬ 
cause the user can both type the source program in a natural 
manner, and correct errors and omissions as they occur. Edit 
Mc*(ie is exited;yia the Back function key, which puts the 
editor into Command Mode. 

Command Mode reminds me of the UCSD Pascal editor. 
The first line of the screen shows the Command Mode options: 
Escape, Find, Replace, Move, Insert, Copy, Delete, Show, 
and Adjust. Line 2 is reserved for parameters to be input by 
the user, so in this mode the text window is 40 x 22. Most 
options require further information to be given on line 2, and 
very clear prompts are given so the user knows what to enter. 

Each option is selected by typing the first character of the 
option narriS. For example, to find an occurrence of a string 
in the source program, the user enters F. The system responds 
with the prompt <count>< (start col, end col) >/string/. 
To find the second occurrence of the string ABCD between 
columns 1 and 50, the user would type 2(1 ,50) / ABCD/. 
The system would then display the section of text containing 
the second such occurrence of ABCD (if any) with the cursor 
' Over the A. The brackets < > in the prompting message in¬ 
dicate optional parameters.\To find the next occurrence of 
the string ABCD in the wh.dle source program, the user need 
only type / ABCD /. The Replace option is like the Find, ex¬ 
cept that each specified occurrence of the string is replaced 
by a second string given by the user. The Replace includes an 


optional verify operator which allows the user to say yes or 
no to each replacement. The Move option allows the user to 
move sections of text, indicated by an interval of line num¬ 
bers, to a different place in the source program. Copy is simi¬ 
lar, except that the section of text ends up in both the origi¬ 
nal position and the new position. Delete allows easy removal 
of several contiguous lines from the text. Insert takes a file 
from disk and places it anywhere you want in the program 
being edited. Show is a way of moving the window so that a 
certain line number is at the top of the screen. Adjust is an 
easy way to make the line numbers disappear so that the win¬ 
dow shows the source program only. Escape gets you out of 
Command Mode and back to the editor’s menu, where you 
can choose to save the source program to disk, print it, purge 
it, or edit the same or another program. 

The editor performs all line numbering automatically as 
lines are entered, and maintains these numbers in sequence as 
lines are added or deleted. The user tan refer tQ them for 
operating on sections of the program; they also appear on the 
assembler output listing, which is handy for debugging. 

Tl has incorporated most of the features found in editors 
for larger systems into the 99/4 editor. In fact, the abilities 
to edit at the character, line, and group-of-lines levels are not 
always all available in larger editors. The only feature missing 
from the editor is a variable right margin-a feature which is 
Feally not too significant for assembler source programs. [But 
that would be nice for word processing applications, since 
this editor already performs 95% of what most people would 
need for correspondence and document preparation—Ed.] 
The Assembler 

The assembler is a program'which converts assembly lan¬ 
guage source programs into object form-the machine-language 
program that executes on the TI-99/4(A). The object pro¬ 
gram is written to disk. Optionally^ a user can print out or 

write an assembler listing t$ disk. 

The 99/4 assembler is a lot like the 9900 assembler, 
TXMIRA, which runs on larger Tl systems. Most of the 69 
instructions are implemented. A programmer who is familiar 
with TXMIRA will be able to write assembler programs for 
the 99/4 without too much difficulty, since the same address¬ 
ing modes are used and most of the instructions operate in 
the same way. 

One big difference, as might be expected, is in the way a 
programmer handles input and output to the monitor. The 
99/4 assembler includes some Basic Support Utilities—a set 
of buitt-ih subroutines (“macros”) for screen I/O. These 
utilities make it unnecessary to use the CRU (Communica- 

Continued on p. 76 
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How The New Tax Laws Affect Computer Owners 

By Vernon K. Jacobs 


S hould you buy your first (or next) computer this year 
or next? Should you lease or buy? Are there any other 
areas of the new tax law that might affect those who 
own or are thinking of owning a computer? There are at least 
109 specific provisions in the “Economic Recovery Tax Act 
of 1981,” and it will be months (perhaps years) before the 
impact of all the provisions is evaluated. It’s almost certain 
that we will have another tax bill early next year to correct 
the inevitable technical errors and flaws in this hastily drafted 
and complex set of tax law changes. Nonetheless, here is a 
brief summary of some of the provisions of the new tax law 
that should be of specific concern to computer owners and 
lessees. 

Full Write Off For Small Computers 

One of the provisions of the new tax law will permit busi¬ 
nesses to deduct the first $5,000 of business equipment ac¬ 
quired in 1982 and 1983, the first $7,500 of purchases in 
1984 and 1985 and the first $10,000 of purchases after 1985. 
This means that many small desktop computers could be 
fully expensed in' the year acquired. No investment credit 
would be allowed on such purchases but the immediate write 
off would usually be better. If the cost of the computer ex¬ 
ceeds the deductible amount. The excess would be eligible 

Vernon K. Jacobs, CPA, is Editor of Tax Angles newsletter and pub- 
isher of Financial Systems Report. P. O. Box 8137-P, Prairie Village 
KS. 66208. _ 

Murphy’s Law ... from p. 32 


for the new depreciation method. This full write off provi¬ 
sion is not available for investors. It’s only available if the 
equipment is to be used in a trade or business. 

New Depreciation Rules 

If you purchased a computer in 1981, the 100% write off 
won’t be available, but the new method of depreciation 
(called the “Asset Cost Recovery System”) does apply to 
1981 equipment purchased. Under the new method, com¬ 
puters will be depreciated over a five year period using speci¬ 
fied rates for each of the five years. (If computers can be 
classed as research and development equipment they can be 
depreciated over a three year period.) For five year class 
equipment purchased in 1981 through 1984, the first year’s 
depreciation will be 15% of the cost. The second years depre¬ 
ciation will be 22% of the cost and the rate will be 21% in 
each of the next three years. The entire cost will be deducted 
over the five year period. 

By contrast, the prior law permitted a computer owner to 
write off up to 40% of the cost in the first year if the equip¬ 
ment was placed in service before July first. An additional 
24% of the cost would be written off in the second year, 
14.4% in the third year and 10.8% in the fourth and fifth 
years. This assumes a five year life, which has been typical 
for computer owners. Consequently, owners of larger and 
more expensive computers won’t fare as well under the new 

_ Continued on p. 82 


Rule #3-Walk, Don't RUN ! 

Computer-induced heartburn is one 
experience you’ll definitely want to 
avoid. Yet how many of you court this 
malady by meticulously entering the 
last 50-75 lines of your program, then 
typing in RUN ? If you’re guilty of this 
practice, don’t be too surprised if Mur¬ 
phy pays an unexpected visit and causes 
your computer to “freeze” on you 
-effectively wiping out everything in 
memory when you have to power down 
to reset the machine. The best way to 
avoid this is to always “back up” your 
entire program (on tape or disk) before 
you RUN it the first time. Then verify 
your recording. The next step is to plan 
what you want to test: Don’t expect to 
have the program execute successfully 
the first, second or even third time that 
you try it out. Instead, take a blank 
sheet of pSper and write down what you 
want to test and how you will do it. 
Then RUN your program following your 
plan. If you notice a problem that does 
not halt your program, write it down on 
your test sheet and keep going. Don’t 
stop to figure out what program line 
caused the problem; there wi I be time 
. for that later. And above-all, avoid the 


temptation to correct the error right 
away. Doing this will cause the follow¬ 
ing: 

• If you change the program line, Tl 
BASIC resets all the variable data 
(that you entered during your test) 
to zero or spaces. Subsequently, 
you will have to retype all that data 
back into your program. 

• You may loose your trend of thought 
when you stop your test in the mid¬ 
dle. It’s possible to miss testing a 
major item because you spent your 
time fixing a minor problem. 

• You may forget to keep track of cor¬ 
rections if you do them in pieces. 



After you have done as much of your 
test as possible, stop the program and 


begin fixing all the “bugs.” Don’t forget 
to mark down the statements that you 
change. This will come in handy if you 
must restore a previous version because 
of a problem in making corrections. 
There are various ways to correct (de¬ 
bug) a program, but since it would re¬ 
quire an entire article in itself, we’ll 
hold off on that until a forthcoming 
issue. 


Rule #4 - Test, Test, TEST ! 

Any professional programmer will 
tell you that it’s extremely difficult to 
produce a bug-free program-maybe 
even virtually impossible to do with 
very large complex programs. So even 
after extensive testing, your program 
may have minor flaws in it. Therefore, 
the,,only wa^ to produce a relatively 
clean program is to test it as much as 
possible. This brings up another corollary 
to Murphy’s law: “The only programs 
without bugs are the ones not yet writ¬ 
ten.” This says it all, and should be rea¬ 
son enough to TEST, TEST, TEST ! 



Support Our Advertisers. They Too Make This Magazine Possible. . . 

56 99'er Magazine Sept/Oct 1981 








































September/October 1981 Vol. 1, No. 3 


$2.00 in USA 


fflaBikjBi 


TM 


s 


THE INTERNATIONAL JOURNAL OF COMPUTER ASSISTED INSTRUC t ION 


State-of-the-Art CAI 


Poetry with LOGO 


How to Beat Video Chess 




Let's Learn Notes 


Typing for Accuracy 



snjSfia 




r 


/ 






2 


r «• * * *« * 





































LET’S 

LEARN NOTES 

By Regena 


L et’s Learn Notes” was designed to be used by begin¬ 
ning music students. A piano or organ teacher can use 
the program during the lesson to give the student a 
different approach to learning musical notes, or a student 
can run the program before or after his/her regular lesson 
. time with the music teacher. Students can also use the 
program at.home for additional practice in learning the 
musical notes. Even preschool children can begin learning 
notes with this program. 

The program is written in Tl BASIC and uses color 
graphics to draw piano keyboards, musical staffs, and notes. 
In addition, the program generates musical tones. 

This program provides three options: Keyboard Learning, 
Treble Clef Learning and Bass Clef Learning. Each option 
asks for ten responses. An incorrect response is recognized 
by a slight non-musical noise; the correct response must be 
entered before the program will continue. 

“Keyboard Learning” randomly selects and displays one 
of two piano keyboards (starting at the left with either two 
black keys or three black keys). The program randomly 
selects one of the 11 displayed piano keys and flashes a 
question mark on the key. The student responds by pressing 
the letter on the computer keyboard that corresponds to 
the letter name of the piano key shown. If the response is 
v correct, the corresponding musical tone is played and the 
. letter name is. pointed on the piano key. The program 
randomly chooses Keyboard 1 or Keyboard 2 for each 
question. If the keyboard chosen is the same as for the pre¬ 
vious question, the keyboard is not redrawn. 



Keyboard 1 



Keyboard 2 
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“Treble Clef Learning” displays a treble staff and clef. 
A note is selected randomly from Middle C to high F (top 
line of the staff) and displayed as a red quarter note. The 
student presses the letter on the computer keyboard that 
corresponds to the letter name of the note. If the response 
is correct, the corresponding musical tone is played and the 
letter name is printed on the note. 



"Bass Clef Learning” displays a bass staff and clef. A 
note is selected randomly from low G (bottom line of the 
staff) to Middle C and displayed as a red quarter note. The 
student presses the letter on the computer keyboard that 
corresponds to the letter name of the note. If the response 
is correct, a five-note scale is played and the letter name is 
printed on the note. 



Bass Glef Learning 


This program is very easy to use and “student-friendly” 
—even for the youngest piano learners. A student can select 
the three learning options at the beginning of the program 
or after each option has finished, simply by pressing 1, 2, 
or 3 on the computer keyboard. If a number greater than 3 
is pressed, the program ends. 

By using this program, repetitious drill is made much 
more fun for the piano student and much less boring for 
the teacher. Tl’s color graphics and sound in this program 
greatly enhance the student’s motivation to learn the letter 
names of piano keys and notes. 










































































, r) 

title 



t*«0isplay^ the characters for musical notes and 
, * \\\ * * \\\ ;\trebj4 clef for The title screeq. Musical tones 
% * W* * * v»» C*major scale hndtafpeggio are played 

.Viili »i « * ’fhile tJiCititle screen is being displayed. 

^ ■ • 1 * •«*»*«.! 


t * * 




d370, i * "* 1 . Keyboard number is randomly chosen. 


V i 380-1440, 

;Usp4$50;; 


'tiorc >, 

eyboard 

" MR tHE KE¥, 
.the white keys: 


for each 
in each 



umbef^ randomly chosen, 1 or 2. 


***** 


' #HwS|he black keys f 6 £$*itg$fc 0 two piano 

»uli uiU «*sfiWFtt-i • tVi • • ;Vs«v.W» •//*’- 


32&0 

3290-3340 Prinl 
3360-3450^ .Treb: 

3460 ' ' 

3470-3530 Ch« 

3540-35501 *1 
3560-4010 * 

t. 4 * - : \ * 

v : **\V* 1 

1 - . ) - 

4020-4030* 

• »* *» 

4040-4160* *’ 

v " ~ ’ foi 

4170-4230 , 

4240 ‘ " *» ‘! 

42504310 Chooses oiie of It not* 

43204338 4 , - »«*- * a4 *’ * 

43404900 fpsts 

r .* • v?* 

4 co\ 


M0&. 


** 



k\ 


* 


*n\\V 


*t: 


HUnV***# 
♦ s •%* ti *» 


* 


* 


uttUHi* 




Increments COUNT and checks if there have 5130-5210 Dra 

IMVO* W* it i* * it* * **, ► * ** * fti 

r^iv>r\ao<A VovvU^A p^tter^Vandpiyy. yf it is 5220,5390* l$r* 

' 5230-5240^1 

5250-5260 


tl 


i* 


i\\\ 4 


* ^46-2^50, ^ Chooses keyboard- f 
‘ \ t * ^ i W the* prey 

, * ♦ x * * - - ’ \ >key is,ahqSeti;iPit is 


the previous question only a new 
a; if it is different a new keyboard 
is drawn before the key'.is chosen. 

ifclef optic 


4* 


■ 


if 


iTO* 


n V 4 ", 

’,2760’ ,. - ‘/Treble Clef and Bass Clef optiort. 

, 2770-2800 Refcqts*colors for this Screen*.”, 1 ' 

‘2810-3270»‘Defines special characters for staff, treble clef, 

* * * ’ \\\ * *\ * !and<ftQia.»* * .. i»\1 »i»*":", .• ‘ 


5260-5390 
5400-5430' If 
5540-5490* Bri 
5500 If 


ei 

O 


% 
\\v* 

* # l 


v 




JOO REM mttxtttt)t«*«ll 

110 REM LET'S LEARN NOTES 
120 REM ttttttttttttttttt 

130 REM BY REGENA 
140 REM 99'ER VERSION 9.81.1 
150 T =1500 
160 CALL CLEAR 
170 CALL COLOR(ll f 13,1) 

180 CALL COLOR<12,13,1) 

190 CALL COLOR(13,14,1) 

200 CALL COLOR(14,5,1) 

210 CALL;COLOR(15,5,1) 

220 CALL CHAR(112,"0000020705050505") 
230 CALL CHAR(113, M 0505050303020202”) 
240 CALL CHAR(114, M 0500091030206040") 
250 CALL CHAR(113,"0000008080809CE3"> 
260 CALL CHAR <116, "40C1C2C28686Q6C2") 
270 CALL CHAR<117,"C040404020202020") 
280 CALL CHAR<119,"8080404040404040") 
290 CALL CHAR ( 119, “Cl 404020100^7" ) 
300 CALL CHAR(120,"20201011121CF010") 
310 CALL CHAR (121, *' 008080** > 

320 CAiiL CHAR (122 ♦ " 109090E0" ) 

330 CALL SOUND(T,262,2) 

340 CACL CHAR <136,"0000030F1F1F3F3F") 
350 CALL CHAR <137,"0202E2FAFAFEFEFE") 
360 CALL CHAR <138,"IF1F0F03"> 

370 CALL CHAR(139,"FCFCF8E0") 

380 CALL CHAR(140,"0202020202020202") 
390 CALL CHAR(141,"0000000303020202") 
400 CALL CHAR<142,"0000000000804020") 
410 CALL CHAR(143,"2020101010080808") 
420 CALL CHAR(144,"OOOllEE") 

430 CALL CHAR(145,"OFFO") 

440 CALL CHAR(146,"0000000000031CEO") 
450 CALL CHAR(147,"000000003EC20202") 

S OUND( T.294-2) 

13*739 ,"83732", 7675 



/ 


500 READ L 

510 CALL HCHAR <6 ,Y,L) 
520 NEXT Y 
^530^ CALL_ SOUND (T, 330,2) 
>40 DATA 78,79.04.6 


/ 


a: 


540 


! 


360 FOR Y=13 TO 23 STEP 2 
170 READ L 

380 CALL HCHAR<10,Y,L> 

590 t- lEXT Y 

600 ..CALL SOUND < J, 349,2) 

610 DATA 8,4,138,0,5,139,7,4,136,7,5,137,6,3,140, 
5,5,140,4,5,141,4,6,144,4,7,143 
-61H 
OR 


!0 Rl 


63OV0R 1 = 1 TO 9 
hV 640 READ X , Y, GR 
630 CALL HCHAR(X,Y,GR) 

660 NEX T I 

■6 70 CALL SOUND!T,392,2) 

680 DATA 3,'g7l46,~3r9, 14774,9, 140,3,9, 140,6,9, 137, 
6,8,136,7,8,138,7,9,139 

_ _600 

FOR 1*1 

710 READ X,Y,GR 
720 CALL HCHAR < X,Y,GR) 

7Z3£L£|£XT I 

740 CALL SOUND<T,440,2) 

71 


770 


*1 




760 DATA 75,69,89,66,79,63,82,68 

Y*14 T0~2T "-—' 

90 READ L 
j800 CALL HCHAR(16,Y,L) 

T Y 

[NDCT, 494,2)--- - . 

830 DAT7T4,26,112,5,26,113,6,26, 114,6,27,115,7, 
26,116,7,27, 117 
\E 830 

OR I»l" TO" 6 


10 Nl 
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Let's Learn Notes ... 

060 READ X,Y,GR 

070 CALL HCHAR < X , Y,SR) 

080 NEXT I 

ISPUMP.CU 


900 DATA 7,28,1IS,8,26,119,8,27,120,8,20,121„ 
9,27,122 
910 RESTI 


CALL 


SOUND<T,262,2) 
FOR 1*1 TO 5 
*40 READ X , Y, BR 
950 CALL HCHAR <X, Y, BR) 
:xt i 

970 CALL SOUND<T,330,2) 



r* 


980 


<1 


*90 DATA 84,82,69,66,76, 
lOQO _ 

14 TO 24 

1020 READ L 

1030 CALL HCHAR(18,Y,L) 
NEXT Y 

1050 'Call sound<t,392,2) 

1060 CALL SOUND<T,323,2) 
1070 CALL HCHAR(20.12.51) 


1100 FOR Y-14 TO 22 
110 READ L 
1120 CALL HCHAR<20,Y,L) 
>0 NEXT Y 


^32^67, 76,69,70^ 


776,69,70 


11 




1150 DATA 18,27,138,18,28,139,17,27,136,17, 
20,137,16,28,140,15,28,140,14,28,141, 
14,29,142,15,29,143 


RESTORI 



1170 

*180 

ll90 


1210 
1220 
\o 

1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1 

"1390 
AOd 

To 

1420 
i43b 
1 

T430 
1460 
1470 
1480 
1490 
150 

To 

1520 

1530 

1540 


-1 TO 


READ X,Y,OR 
CALL HCHAR(X,Y,GR) 

NEXT I 

)ALL SOUND <T, 330, 2) 

CALL SOUND<T,262,2) 

ifi 

IALL CLEAR 
CALL COLOR<4,2,7) 

CALL-COLOR<9,2,1) 

CALL COLOR<10,2i16) 

CALL CHAR <96, ,# FF H ) 

CALL CHAR <104,"FF H > 

CALL CHAR <105,"7F7F7F7F7F7F7F7F") 
CALL CHAR <106,"FEFEFEFEFEFEFEFE ■) 
CALL CHAR <107, "0101010101010101"> 
CALL CHAR <100,"0080808080808000") 
CALL CHAR<109,"O”) 

RANDOMIZE 

C0UNT=0 

KB*INT<2*RND>«-1 


77,69,32.84,72 


DATA 

[STORE 1390 
for'V= i1 1U 22 
READ .L 

CALL- HCHAR < 4, Y , L) 

NEXT Y 
PAT=KB 

REM DRAW KEYBOARD 
CALL HCHAR(8,1,104,32) 
CALL HCHAR <18,1,96,32) 
CALL VCHAR<8,1,109,10) 
CALL VCHAR<8,32,109,10> 
FOR Y-3 TO 30 STEF 3 
CALL VCHAR<0,Y-l,109,10) 
C0LL VCHAR<8,Y,107,10) 
CALL VCHAR <B, Y4-1, 108, 10) 
NEXT Y 

IF KB—2.THEN 1660 
REM _ KEYED ABU 1 


,69, 



DATA 3,6,12,15,18,24,27,27 

tE 1580 - 

FOR 1-1 TO 8 
READ Y 

CALL VCHAR<8,Y,105,7) 

CALL VCHAR(8,Y+l,106,7> 

!XT I 

iOTO 174Q. 


IRD 




1670 

1680 


DATA 3,6,9,15,18,24,27,30,30 
RESTORE 


FOR 1*1 TO 9 
READ Y 

CALL VCHAR<8,Y,105,7) 



1860 

1870 
1 

1890 

1900 

1910 

1920 

1930 

1940 

1950 


CALL VCHAR <8,Y+l,106,7) 

XT I 
REM PICK KEY 
NN=INT<11*RND>+1 
J«3*NN-1 

CALL HCHAR<16,J,63) 

FDR 1*1 TO 10 
CALL COLOR<4,2,7) 

CALL COLOR<4,16,7) 

NEXT I 

CALL KEY <0, NOTE, STATUS) 

IF STATUSOl THEN 1820 
IF KB-2 THEN 1860 

rm mm CjQTO 2050, 2120, 2190,2260,2330,2400,2470, 
2540,2580,2620,2660 , 

O N NN GOTO 1 890,1930,1970,2010,2050,2120,2190, 
2260,“^SS0, 5400, 2470 
CALL SOUND(300,-4,2) 


IF NOTE070 THEN 1870 
CALL SOUND<T,175,2) 
CALL HCHAR<16,2,70) 


IF N0TEO71 THEN 1870 
CALL SOUND<T,196,2) 
CALL HCHAR<16,5,71) 


1970 IF NOTEC>65 THEN 1870 
1980 CALL SOUND<T,220,2) 
1990 CALL HCHAR<16,8,65) 


2010 IF NOTEC >66 THEN 1870 
2020 CALL SOUND<T,247,2) 
2030 CALL HCHAR<16,11,66) 
20 40 8QTQ_2690 
2050“TF NOTEC>67 THEN 1870 
2060 CALL SOUND<T,262,2) 
2070 IF KB-2 THEN 2100 
2080 CALL HCHAR <16,2,67) 


2100 
21 
2120 
2130 
2140 
2150 
2160 
217$ 
21§0 
2190 
2200 
2210 


CALL HCHAR<16,14,67) 

IF NOTEC>68 THEN 1870 
CALL SOUND<T,294,2) 

IF KB-2 THEN 2170 
CALL HCHAR <16, 5, 60) 
GOTO 2690 

CALL HCHAR<16,17,68) 

30102*30 

IF NOTEC >69 THEN 1870 
CALL SOUND<T,330,2) 

IF KB-2 THEN 2240 
CALL HCHAR<16,8,69) 

|90 

CALL HCHAR<16,20,69) 



2310 
•« 2320 

2355“ 

2340 
2350 
2360 
2370 
2: 

23 
#00 
2410 
2420 
2430 
2440 



IF NOTEC>70 THEN 1870 
CALL SOUND<T,349,2) 

IF KB-2 THEN 2310 
CALL HCHAR<16,11,70) 

CALL HCHAR<16,23,70) 
GOTO 

NOTEC>71 THEN 1870 
CALL SOUND < T,392,2) 

IF KB-2 THEN 2380 
CALL HCHAR<16,14,71) 
GOTO 2 j 

CALL HCHAR<16,26,71) 

QOIO-2620 

NOTEC>65 THEN 1870 
CALL SOUND<T,440,2) 

IF KB-2 THEN 2450 
CALL HCHAR<16.17-65) 
GOTO 2690„ V 

<16,29,65) 

IF NOTEC>&6 THEN 1870 
CALL SOUND<T,494,2) 

IF KB-2 THEN 2320 
CALL HCHAR<16,20,66) 
>90 

CALL HChSR(16,32,66) 


2540 IF NOTEC>67 THEN 1870 
2550 CALL SOUND<T,523,2) 
2560 CALL HCHAR(16,23,67) 
KTQ g69i 

IF NOTEC>68 THEN 1870 
CALL SOUND(T,587,2) 
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Let's Learn Notes,.. 

2600 CALL HCHAR <16, 26, 68) 
GOT! 

►620 “Tf~NOTE< >69 THEN 1970 
2630 CALL SOUND<T,659,2) 
2640 CALL HCHAR<16,29,69) 


2660 
2670 
►680 


2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 


2830 
2840 
2850 
2060 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2930 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
31 10 
3120 
3130 
3140 
3150 
3160 
3170 
3190 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 


IF N0TEO70 THEN 1870 
CALL SOUND<T,698,2) 

CALL HCHAR<16,32,70) 

FOR DELAY=1 TO lOOO 

NEXT DELAY 

CALL HCHAR<16,J,109) 

COUNT-COUNT+1 
IF COUNT=10 THEN 5400 
KB=INT(2*RND)*1 
IF KB-PAT THEN 1740 ELSE 1380 
REM TREBLE CLEF NOTES 
CALL CLEAR 
r 0R 1-9 TO 15 
CALL COLOR<I,2,1) 

NEXT I 

CALL CHAR < 96,"FF M > 

CALL CHAR <104, M 0000071F3F78F0E0") 
CALL CHAR <105,"OOOOOOCOFOF0783C"> 
CALL CHAR <106,"CO 8 O 8 O 8 O 8 O 8 O 8 OBO“) 
CALL CHAR <107,"1COC0C0C0C04O4O4") 
CALL CHAR <108,"8080808080808040" > 
CALL CHAR <109,"0404040408080618") 
CALL CHAR <110,"FF40404040202020") 
CALL CHAR <111,"FF3040604040C080") 
CALL CHAR <112,"212I3312161C1C18") 
CALL CHAR <113, "FF00000103070F1E") 
CALL CHAR <114, l, FF78E8C8B4840404 - > 
CALL CHAR <115,“000000010103070F") 
CALL CHAR <116,"3C78F0E0C08080") 
CALL CHAR <117,"0404020202020202-) 
CALL CHAKU18, -FF0E1C1838307070"> 
CALL CHAR <119,"FF01070F1F3D3971") 
CALL CHAR <120,-FFFFFFCO") 

CALL CHAR<121,"FFFEFF0F0301"> 

CALL CHAR <122,"FFOOOO 8 OCOCOEO 6 O"> 
CALL CHAR <123,-606060E0E0606060 H ) 
CALL CHAR<125, H 60EOCOCOCOqOCO€0-> 
CALL CHAR <126,-8080808080808080") 
CALL CHAR<127,"3030101010101010") 
CALL CHAR<128,"FF7O7O38303C1C1E") 
CALL CHAR <129,"FF60603010-> 

CALL CHAR<130,"FF40404040404040"> 
CALL CHAR <131,"FF1020202040COBO") 
CALL CHAR <132,"OF070301") 

CALL CHAR <133,"0080C0F0F83C0F03 M ) 
CALL CHAR <134, rt OOOOOOOOOOOOOOCO") 
CALL CHAR <135,"202020202020212E-) 
CALL CHAR<136,"01030608106080") 
CALL CHAR <137,"FF20202020202020") 
CALL CHAR<138, M 1010101010101010"> 
CALL CHAR <139,"3C7EFEFEFC7C39IF") 
CALL CHAR<140,-10101030204080") 
CALL CHAR <141,"FF8080B080808080") 
CALL .-CHAR <152, " 03OF1F3F7FFFFFFF ") • 
CALL CHAR <153,"FCFFFFFFFFFFFFFF") ; 
CALL CHAR<154,"FFFFFF7F3F1F0F03") 
CALL CHAR < 1 55,"FFFFFFFFFFFFFFFC") 
CALL CHAR <136,"FOFOFOEOCOSO"> 

CALL CHAR <157,"1O1O9ODOFOF0F0FO") 
CALL CHAR <150,"OOOO 8 OCOEOFOFOFO-) 
CALL CHAR <159,"OiOlOlOlOlOl0101") 
CALL COLOR<16,7,1) 


3290 DAT 
3300 


980._- —_ 

6^777,69732,84,72,69,32,78,79,84,69\ 

3290 _ ___ 1 

FOR Y-10 TO 22 
.►20 READ L 

3330 CALL HCHAR <6,Y,L) 

NEXT Y 

IF GAME=3 THEN 4040 

-CLEF_ 


3360 REM J 

■9,5,104,9,6,105,10,3,106,10,6,107,11,5, 
108,11,6,109,12,5,110,12,6,111,13,5,112 
3300 RESTORE 3370 

3390 DATA 14,4,113,14,5,114,15,3,115,15,4,116,15, 
5,117,1673,11S,16,5,119,16,6, 120,16,7,121, 
16,8,122 

DATA 17,3,123,17,5,125,17,6,126,17,8,127,18, 
3,128,18,5,129*i8,6,130,18,8,131,19,3,132 
DATA 19,4,133,19,5,134,19,6,135,19,7,136,20, 
6, 137,21*^138, 2Z*-5, 139, 

120>CR~T»1 TO 37 
*30 READ X, Y, GR 


3440 CALL HCHAR(X,Y,GR) 
3450_NEXT I 
COUNT=0 
3470 RANDOMIZE 
3480 NN*INT(11*RND)+1 
3490 M-22-NN 
,.'5300 BO SUB 5070 


^5520 CALL HCHAR<M+1,14,96) 

3530 CALL HCHAR <M+1,10,96) 

3540 CALL KEY<0,NOTE,STATUS) 

3550 IF STATUSOl THEN 3540 

3 560 ON N N ^GOTCL^Say O.3630,3670,3710,3750,3790, 
3830,3870,3910,3950,3990 
3570 CALL SOUND<600,-8,2) 



3600 

3610 


>67 THEN 3570 
CALL SOUND<T,262,2) 
CALL HCHAR <M+1,16,67) 
G OTO 4020^ 

TF“TvI0TET>68 THEN 3570 
CALL SOUND<T,294,2) 
CALL HCHAR <(14*1, 16,68) 




IF N0TEO69 THEN 3570 
CALL SOUND <T,330,2) 
CALL HCHARCM+l,16,69) 
GO’ 

.1 'f N0TEO70 THEN 3570 
CALL SOUND<T,349,2) 
CALL HCHAR<M+1,16,70) 


3760 
3770 
3780 
9«_ 
3800 
3810 
3820 

3840 

3850 

3860 




THEN 3570 
CALL SOUND<T,392,2) 
CALL HCHAR<M+1,16,71) 
GO TO 40: 

NOTE<>65 THEN 3570 
CALL SOUND<T,440,2) 
CALL HCHAROI+l, 16,65) 
GQX g 4020 . 

FN?rr^<T66 THEN 3570 
CALL SOUND<T,494,2) 
CALL HCHAR<M+1,16,66) 
GOT04020 

IF N0^rr>67 THEN 3570 
CALL SOUND<T,523,2) 
CALL HCHAR <M+1,16,67 > 
Ga 

F NOTEO 68 THEN 3370 
CALL SOUND<T,587,2) 
CALL HCHAR(M+l,16,68) 
GOTO 4020 

~\P NOT£<>69 THEN 3570 
CALL SOUND<T,659,2) 
CALL HCHAR<M+1,16,69) 
GOTO 4020 

IF N0TEO70 THEN 3570 
CALL SOUND<T,698,2) 
CALL HCHAR<M+1,16,70) 


<97,"FF000000003078FC") 
CALL CHAR <98,"FC7B30") 

CALL CHAR < 99,"FFFF7E3C*) 

CALL CHAR<100,"18102060607C7EFF") 
CALL CHAR<1Ol,"FFOOOOO103060408") 
CALL CHAR <102,"FF0F70C0"> 

CALL CHAR<103,"FFC0381C0E070303"> 
CALL CHAR <124,-COCO603038383838”) 
CALL CHAR <142,"FFICICICICICICIC") 
CALL CHAR<143, M 1C1C1C1C1C1C1C1C") 
CALL CHAR <144,"FF3838307O7OCOCO") 
CALL CHAR <145,"030306040C^870CO") 
rAl I -THAR <-1 AA . »F Ff).TQi»nr 106090“ 1 


DATA 14,3,99,13,3,lOO,12,3,101,12,4,102,12, 
6,103,13,7,124,14,7,142 
RESTORE 4170 
DATA 15,7,143,16,7,144,17,6,145, 18,5,146,12, 
9,97,13,9,98,14,9,97,15,9,98,1,1,32 


— 1 


1210 
4220 

‘240 
4250 
4260 
4270 
4280 
4290 “ 
4300 


READ X,Y,GR 

CALL HCHAR<X,Y,SR) 

NEXT I 

COUNT=0 

RANDOMIZE 

NN“INT <11*RND)+1 

M-20-NN 

GQSUB 5070 

THEN 4320 
CALL HCHAR<M+1,14,96> 
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3^QntajB5 Computing is dedicated to the idea that com¬ 
puter gaming should be challenging, fun and lasting in content. 

AVAILABLE NOW! 

“RINGWRAITH’S LAIR” 

A fantasy gaming program in which the player tries to acquire 
treasure, win battles and survive to free a captured princess. 

Playing time varies with skill but cannot be mastered easily and 
then maximizing score will take much longer.$24.95 

“RtNGWRAITH’S LAIR, SCENARIO II” 

This disk is used in conjunction with "RINGWRAITH'S LAIR" 
disk in order to create a new lair — totally different from the 
basic scenario.$12.00 


Advertise In 


TM 


4 I 


|1 * 


$ 12.00 


mii 


RINGWRAfTH’S LAIR, SCENARIO I 

Still more adventure in a new scenario? 

“LAIR DESIGNER” 

Allows YOU to design and run your own "LAIR" within "RING- 
WRAITH'S LAIR” format You design your own monsters, 
devices and location descriptions and store it all on disk. 

... $29.95 

AH of the above require 77-99/4 
• with disk, expansion memory, 

extended basic. 


ORDER DIRECT 
OR 

WRITE FOR BROCHURE 

3Fantaag (Computing 

1 586 South Citrus 
Escondido. CA 92027 






Call or Write for 

Rate Card Today! 

99’er Magazine / Ad. Dept. 

2715 Terrace View Drive 
Eugene, Oregon 97405 
(503)-485-8796 


ATTENTION TI DEALERS 

Did You Know That You Can Be 
Reimbursed For Advertising Your 
Products In This Magazine? 

Call or Write About Space Ads 
or Dealer Directory Today! 


Let's Learn Notes ... 


4310 

4320 

4330 

434 



4330 
4360 
170 
4300 
4390 


CALL HCHAR < M+1,18,96 > 

CALL KEY<0,NOTE,STATUS) 

IF STATUSOl THEN 4320 

4370,4420,4470, 
4520,4570,4620,4670,4720, 
4770,4820,4870 
CALL SOUND(600,-8,2) 

IF N0TEO71 THEN 4350 
J-110 . 

GOSUB 4930 

<20,16,71) 


4 710 GOTO ..4910 
^T20 IF N0TEO71 THEN 4330 
4730 J-196 
L47A9 EQSUB.. 4930 
r 4750 CALL HCHAR(13,16,71) 


4770 

4780 

4790 



>63 THEN 4350 


4430 J-116 


4830 

4040 

4850 


IF NOTEC>65 THEN 4350 
J-220 

GOSUB 4930 
CALL HCHAR(12,16,65) 
GO TO 491 

N0TEO66 THEN 4350 
J-247 



4450 CALL HCHAR(19,16,65) 


4470 

4480 

4490 



IF NOTEC>66 THEN 4330 
J“123 

GOSUB 3 3Z0 

CALL HCHAR(18,16,66) 

GOTO 4910 

THEN 4330 

J=131 




GALL HCHAR(17,16,67) 
GOTO 4< 

N<yfE<*68 THEN 4350 
J-147 
GOSUB ,49; 

(CHAR(16,16,68) 


4620 IF N0TEO69 THEN 4350 
4630 J-165 


4650 CALL HCHAR(15,16,69) 


4670 IF N0TEO70 THEN 4350 
4680 J=175 
4690_fiQSUfl--423a 
475 o CALL HCHAR<14,16,70) 


CALL HCHAR(11,16,66) 
TO 

IF N0TEO67 THEN 4330 
J-262 

GOSUB 4930 
CALL HCHArYiO,16,67) 

1 0 GOSUB 5220 

49 w~ 

FOR 1*1 TO 5 

14940 CALL SOUND <200, J , 2) 

930 J-J+15 
NEXT I 

REM STAFF 

FOR X*12 TO 20 STEP 2 
CALL HCHAR(X,1,96,31) 
iOlA NEXT X 

FOR.X-12 TO 18 STEP 2 
CALL HCHAR(X,1,141) 
CALL HCHAR(X+l,1,126) 
NEXT X 
RETURj 
REM NOTE 

CALL HCHAR(M,15,132) 
CALL HCHARCM,16,153) 
CALL HCHAR (M+l , 15,-154) 
CALL HCHAR(M+l,16,155> 
CALL HCHAR(M+l,17,156) 


5130 IF GAME-3 THEN 5210 
5140 IF NNCB THEN 5180 
5150 CALL HCHAR(M,17,158) 

5160 CALL VCHAR(M+ J,14,159,6) 
5170 RETUR N 

5180 CALL HCHAR(M,17,157) 

3190 CALL VCHAR(M-5,17,138,5) 

> 200 RETURN 

10 IF NN<5 THEN 5180 ELSE 5150 
!20 REM CHANGE NOTES 
!30 FOR DELAY* 1 TO lOOO 
£0 NEXT DELAY 
5250 COUNT*COUNT♦1 
3260 IF COUNT-10 THEN 5400 
5270 CALL HCHAR<M,14,32,5) 

5280 CALL HCHAR(M+l,14,32,5> 

5290 IF GAME-3 THEN 5350 
. 3300 IF NN<8 THEN 5330 
5310 CALL VCHARCM+l,14,32,6) 
532C LJ50T0 5360 

“*->*5330 CALL VCHAR (M-5, 17, 32, 5) 


5350 IF NN<5 THEN 5330 ELSE 5310 
5360 FOR K-12 TO 20 STEP 2 
5370 CALL HCHAR<K,14,96,3) 

5380 NEXT K * * 

5390_BEBIBH . . 

400 PRINT -PRESS 1 FOR KEYBOARD QUIZ" 
5410 PRINT TAB(7);”2 FOR TREBLE NOTES" 
5420 PRINT TAB(7>;"3 FOR BASS NOTES" 
5430 PRINT TAB(7);"4 TO END PROGRAM" 
5440 CALL KEY(0,K,S> 

5430 IF K=52 THEN 5500 
5460 IF K>51 THEN 5440 
5470 IF K<4? THEN 5440 
5480 GAME—K—48 

5490 IF GAME-1 THEN 1240 ELSE 2770 
5500 END 
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Model Name 



Texas Instruments 


Mfr. 

Sugg. 

Ret. 


CONSOLE 

PHC 004 TI-99/4A Home Computer . 649 95 

PERIPHERALS 

PHP 1500 Solid State Speech'” Synthesizer . . 149.95 

PHP 1600 Telephone Coupler (Modem) 224.95 

PHP 1700 RS-232 Accessories Interlace 224.95 

PHP 1800 Disk Drive Controller ione Disk Manager 29995 

module packed.wiih each Disk Controller! 

PHP 1850 Disk Memory Drive. 49995 

PHP 1900 Solid State Printer. 399 95 

PHP 2200 Memory Expansion (32K RAM)* 399.95 

PHA- 2100 R.F. Modulator (TV Adapter). 49.95 

PHA 4100 10" Color Monitor*. 374 95 

OPTIONAL ACCESSORIES 

PHP 1100 Wired Remote Controllers (Pair). 34.95 

PHA 2000 Dual Cassette Cable. 14.95 

PHA 2010 Monitor Cable. 19.95 

PHA 2020 Audio Adapter (Headphone Jack). 19.95 

PHA 1950 Thermal Paper (2 Pack). 9.95 

PHA 2605 Blank Overlays (4 Pack). 7.95 


APPLICATION PROGRAMS 
Home Management/Personal Finance 


Elek- 

Tek 

Price 


370.00 

125.00 

185.00 

185.00 

238.00 

395.00 

318.00 

318.00 

40.00 

300.00 


28.00 

11.75 

16.00 

16.00 

8.00 

6.50 


INCORPORATED 

Model Name 


PHM 

Command Modules 

3006 Home Financial Decisions. 

29 95 

2545 

PHM 

3007 Household Budget Management. 

39.95 

33.95 

PHM 

3012 Securities Analysis. 

54.95 

46.70 

PHM 

3013 Personal Record Keeping. 

49.95 

4245 

PHM 

3016 Tax/Investment Record Keeping .. 

69.95 

5945 

PHM 

3022 Personal Real Estate. 

* 

69.95 

5945 

PHD 

Diskette 

5001 Mailing List.. 

69 95 

5945 

PHD 

5003 Personal Financial Aids. 

19.95 

16.95 

PHD 

5021 Checkbook Manager*. 

19.95 

16.95 

PHD 

5022 Business Aids library- 

Finance Management*. 

3995 

33.95 

PHD 

5024 Inventory Management’. 

6995 

5945 

PHT 

Cassette 

6003 Personal Financial Aids. 

14.95 

12.70 


k, 


Mfr. Elek- 
Sugg. Tek 
Ref. Price 


PHD 5019 Teach Yourself Extended Basic*. 24.95 

PHD 5020 Music Maker Demonstration. 14.95 

PHD 5023 Basketball Statistics*. 24.95 

PHD 5025 Bridge Bidding I*. 29.95 

Cassette 

6007 Teach Yourself Basic.!. 29.95 

6009 Music Skills Trainer.. 24,95 

6011 Computer Music Box. 14 95 

6018 Market Simulation. 14.95 

6019 Teach Yourself Extended Basic*. 19.95 

6025 Bridge Bidding I*.•. 7 4 95 


Entertainment 

Command Modules 

PHM 3009 Football. 

PHM 3018 Video Games I.. 

PHM 3023 Hunt the Wumpus 

PHM 3024 Indoor Soccer_ 

PHM 3025 Mind Challengers. 

PHM 3030 A-Maze-Ing. 

PHM 3031 The Attacktt. 

PHM 3032 Blasto'ttt. 

PHM 3033 Blackjack and Poker 

PHM 3034 Hustle*ttt. 

PHM 3036 Zero Zap ttt.. 

PHM 3037 Hangman. 

PHM 3038 Connect Fourttt •• 

PHM 3039 Yahtzeettt. 

Diskette 

PHD 5002 Tl-Trek (w/speech). 

PHD 5010 Mystery Melody.... 

PHD 5015 Oldies But Goodies-Games 
PHD 501 7 Oldies But Goodies-Games 

Cassette 

PHT 6010 Mystery Melody. 

PHT 6015 Oldies Bui Goodies-Games 
PHT 601 7 Oldies But Goodies-Games 


« • I 


2995 

29.95 

24.94 

29.95 
2495 

24.95 

39.95 

24.95 

24.95 
2495 
1995 

19.95 

19.95 

24.95 

14.95 
14 95 
19 95 

24.95 


Education/Personai Enrichment 



..' PHM 


Command Modules 



PHM 

PHM 

3002 Early Learning Fun. 

2995 

2545 

PHM 

PHM 

3003 Beginning Grammar. 

29.95 

2545 

PHM 

PHM 

3004 Number Magic. 

19.95 

16.65 

PHM 

PHM 

3005 Video Graphs. 

1995 

16.95 

PHM 

PHM 

3008 Video Chess. 

69.96 

5945 

PHM 

PHM 

3010 Physical Fitness. 

29.95 

2545 


PHM 

3015 Early Reading ft. 

54 95 

46.70 

PHD 

PHM 

3020 Music Maker. 

3995 

33.95 

r nu 

PHD 

PHM 

3021, Weight Control and Nutrition*. 

59.95 

50.95 

mu 

PHH 

PHM 

3027 Addition and Subtraction l*tt . 

39.95 

33.95 

ill L J 

PHD 

PHM 

3029 Addition and Subtraction II* ft. 

39.95 

33.95 

PHD 

PHM 

1 

3029 Multiplication t*tt. 

3995 

33.95 

PHD 

m 

Diskette 



PHD 

PHD 

5007 Teach Yourself Basic .. 

3495 

29.70 


PHD 

.5009 Music Skills Trainer. 

29.95 

25.45 

PHT 

PHD 

5011 Computer Music Box. 

19.95 

16.95 

PHT 

PHD 

5018 Market Simulation... 

19.95 

16.95 

PHT 





PHT 





PHT 

tt Developed by Scott Foresman 



f ft The 


OTHER APPLICATION PROGRAMS 

Command Modules 

3000 Diagnostic. 

3001 Demonstration. 

3011 Speech Editor. 

3014 Statistics. 

3017 Terminal Emulator I . 

3026 Extended Basic*. 

3035 Terminal Emulator II* . 

Diskette 

5004 Programming Aids J. 

5005 Programming Aids II. 

5006 Math Routine Library.. 

5008 Electrical Engineering Library* 

5012 Programming Aids III*. 

5013 Graphing Package. 

5016 Structural Engineering Library* 
Cassette 

6004 Programming Aids I . 

6006 Math Routine Library. 

6008 Electrical Engineering Library* 

6013 Graphing Package. 

6016 Structural Engineering Library* 

Attack, Biasto. Hustle, Zero Zap. Conned 
marks cf Milton Bradley 


21.20 

12.70 

21.20 

25.45 

25.45 

21.20 

12.70 

12.70 

16.05 

21.20 


25.45 

25.45 

21.20 

25.45 

21.20 

21.20 

33.05 

21.20 

21.20 

21.20 

16.05 

16.05 

16.05 

21.20 

12.70 

12.70 

16.05 

21.20 


995 

14.95 

19.95 

8.50 

12.70 

16.98 

29.95 

25.48 

69.96 

59.45 

4495 

38.20 

44.95 

38.20 

44 95 

38.20 

99 95 

84.98 

49.95 

42.48 

14 95 

12.70 

24 95 

21.20 

29.95 

28.48 

29.95 

25.45 

19.95 

18.95 

1995 

14.95 

29.95 

25.45 

9.95 

8.50 

24.95 

21.20 

24.95 

21.20 

14 95 

12.70 

24.95 

21.20 


5344 West Devon Avenue, Chicago IL 61 
(800)621-1269 (312)631- 


| CA U TO IL FREE 800-621-1269 (ixcm Illinois, Alaska, Hawaii) 

Accessories discounted too Corporate Accounts Invited. Mestercharge or Visa by 
mail or phone Mail Cash Ck.. Mon Drd.. Pars. Ck [2 wks to clear). Add $400 1 st item; 
$1.00 ea. adcTl shpa. & hendl. Shipments to IL address add 7% tax. Prices subject to 
change. WRITE for free catalog. Ail ELIK-TEK MERCHANDISE IS tRAND NEW, FIRST 

QUALITY AND COMPLETE. 
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FRAME 1 


O.K. Class. 

It's time for a little quiz: 


NSTRUCTION 


By Gary M. Kaplan 

A lthough microcomputers have been used in schools and 
in the home for the last few years, teaching simple 
mathematics by computer-assisted instruction (CAI) 
hasn't really progressed much beyond the first primitive drill 
and practice software-programs that simply substituted a 
TV screen and typewriter-like keyboard for the more tradi¬ 
tional pencil and paper. CAI software development just hasn’t 
kept up with the improvements in hardware that have oc¬ 
curred during this same period. In fact, it’s very rare these 
days to see a piece of tutorial software that utilizes most of a 
particular computer’s capabilities. And yet that’s exactly 
what a software developer must do to give his program the 
capability to hold a child’s attention, be easy and fun to use 
repeatedly, and help the child to actually learn. All the “bells 
and whistles” that can be effectively used should indeed be 
used. 

But producing a software series that meets with these and 
the remaining standards set forth in FRAME 1 requires close 
cooperation between programmers and educators. It also 
takes a lot of time. You don’t attempt an ambitious project 
like this without strong belief in the virtues of a particular 
computer and an unwavering faith in the appeal of that com¬ 
puter system to your intended audience. You should also be 
prepared to stick it out for the “long haul.” The payoff just 
won’t occur overnight. .. 

This brings us up to FRAME 2 in our little quiz and allows 
me to introduce Scott, Foresman and Company (SFC)—one 
of the players in this software development game. With a 
wealth of educational materials and experience to draw from, 
the Electronic Publishing Division of SFC has teamed up 
with Texas Instruments to produce Command Module soft¬ 
ware for the TI-99/4(A) computer. 

And what a formidable alliance this is turning out to be: 
Take one 16-bit home computer—the only microcomputer 
that can employ color graphics, animation, sound effects, 
music and speech in the same program—and add the exten¬ 
sive knowledge resources of one of the biggest names in 
school text books; then cap it off with the aid and support of 
the renowned Texas Instruments Learning Center [its “Learn¬ 
ing Factors Engineering” discipline is the subject of a forth¬ 
coming article], allow enough time to progress along the 
unavoidable “learning curve," and you have the basis for 
the best reading and math software in the industry. 
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It’s unfortunate, but far too many educational software 
producers act as if they are exempt from the learning and im¬ 
provement process, expressed graphically as the aforemen¬ 
tioned learning curve; they release package after package in 
an attempt to quickly get out an entire series of programs 
ahead of the competition. With this approach there's no time 
to evaluate the effectiveness of the early releases in an at¬ 
tempt to incorporate design improvements into later ones. 
Sure, much of this software is often “maintained” (i.e., bugs 
that pop out of the woodwork are removed), but design 
changes are practically non-existent. The main attribute of 
cassette and disk-based software—the fact that it's “soft” and 
can be modified on th e same magnetic media—has been terri¬ 
bly under-utilized. 

The producer of software in Command Module format 
doesn’t have this luxury. These plastic cases are filled with 
GROMs (Graphic Read-Only Memory) and ROMs-types of 
semiconductor devices that contain programs that are 
“burned in” and cannot be altered. It’s perhaps more descrip¬ 
tive to think of these as “firmware”—occupying a place 
somewhere between hardware and software. Although this 
medium allows programming in languages other than BASIC 
(most typically GPL—an optimized Graphics Programming 
Language specifically for the T1-99/4), makes it possible to 
get at more powerful machine features, and effectively adds 
to the console’s self-contained memory, it does require more 
thorough and time-consuming testing and debugging to pre¬ 
vent costly errors: Once in ROM or GROM, the only way to 
change the software is to throw all the chips away and “burn 
in” new ones—a very expensive proposition. 

Besides Texas Instruments, other manufactures of color 
computers (Atari and Tandy) have weighed the advantages of 
software in cartridge form and have built machines capable 
of using “ROM Packs.” But regardless who the software 
developer is, or the machine the software is written for, the 
fact that educational software is produced in this instant¬ 
loading, plug-in format doesn’t necessarily make it good 
software. It may indeed be “bug free,” have impressive color 
graphic displays, and contain music and sound effects, but if 
it doesn’t meet all the criteria set forth previously (in FRAME 
1), it just won’t be very effective software-software that can 
justify the use of a microcomputer rather than a cheaper and 
more accessible pencil and workbook. 

Although other personal computers can accept software in 
cartridge form similar to the push-in/pull-out method imple¬ 
mented on the TI-99/4(A) by Texas Instruments, that’s 
where the similarity ends: Tl’s Command Modules have a far 
greater memory capacity (30K vs. 12K), and their interface 
with the console is better “human engineered”—allowing users 
to get in and out of the firmware with a single keystroke, 
without restricting the use of a peripheral port. [Don’t forget 
that Tl was the pioneer in the field of Solid State Software 
(TM), starting way back with their programmable calculators. 
We’ll cover the technical differences between cartridge-loading 
computers in a forthcoming issue—Ed). 

As a result of its abundant built-in capabilities and ad¬ 
vanced design, the Tl computer offers more to, as well as 
demands more from programmers and educators if they hope 
to fully exploit the hardware, and transform the TI-99/4(A) 
into a “learning machine” without equal. 

Those of us with school age children are indeed fortunate 
that so prestigious an educational publisher as Scott, Fores- 
man and Company has joined forces with Texas Instruments 
for just this purpose. Their first product released, Early 
Reading, was revolutionary. It was in the first batch of Com¬ 
mand Modules distributed by Texas Instruments, and so has 
been around for some time now. Those of you who have had 
the opportunity to use it with young children can, I’m sure, 
attest to the fact that it really worked— it taught your child 
to read and was extremely enjoyable to use. Here, for the 
first time, was a piece of educational software that employed 
synthetic speech, color animation, music, and sound effects 
in the same program~a learning activity that a child could 


participate in without constant adult supervision. This soft¬ 
ware is indeed “worth its weight in GROMS ...” 

Although the Early Reading Command Module was clear¬ 
ly far superior to any CAI software I’d seen on any micro¬ 
computer at that time, it did contain some minor rough spots 
—in particular, a little too much use of instructional speech, 
and not an effective enough user-operable control system for 
getting into and out of certain “pages” of the activities. At 
that time, I thought it would indeed be interesting to see 
what improvements Scott Forsman and Texas Instruments 
would come up with in later reading and math releases. 

Addition and Subtraction 1 wasn’t ready for distribution 
until nearly one year after I had first seen Early Reading. 
And yes, there was quite an improvement in the software 
design. The two troublesome areas were, in fact, gone. It was 
evident that SFC and Tl had made some impressive progress 
along the learning curve during the interim. 

In a recent visit to the Chicago area, I had an opportunity 
to observe some of the development process that goes into 
this software. Situated within Scott, Foresman’s strikingly 
beautiful Glenview complex is the Electronic Publishing 
Division-the division that was organized for the purpose of 
propelling one of America’s most traditional educational 
publishers into the world of the future. This division is not 
only responsible for educational software, but is equally re¬ 
sponsible for administrative software—a program scries 
(designed to run on a TI-99/4(A) disk system with aTI 825 
printer and Command Module driver programs) that auto¬ 
mates administrative work and thus helps run the schools 
more efficiently: The computer keeps attendance records 
and inventories, does scheduling,salary planning and mailings, 
maintains personnel and student data, and assists in account¬ 
ing and payroll. 

Software development is done on large 990-series Texas 
Instruments computers by a team of programmers proficient 
in GPL, Assembly, and BASIC. Development programs are 
shuttled back and forth across the country between test sites. 
When a program finally gets as refined as its going to get 
(usually after many round trips), a Tl facility will make the 
“mask,” burn in the final GROM chips, and then assemble 
them into Command Module cases. The process is slow, but 
unusually thorough, and the result-as evidenced by the fine 
Addition and Subtraction 1 software product- “speaks” for 
itself (pun intended) . . . [Watch the next issue for an article 
explaining this software development process in more detail.] 



Subtraction 1 

Now let’s take a look at the software. The program archi¬ 
tecture appears simple enough: The module begins by teach¬ 
ing the basic concept of counting from zero to nine. Then, 
step-by-step, the principles of addition and subtraction (using 
this same number group) are introduced. A child watches and 
listens (with the optional speech synthesizer attached to the 
TI-99/4(A) console) to tutorial problems at the beginning of 
each of the separate activities. The program then gives the 
child a choice of more example problems or of moving on to 
the practice drill. If the child answers 80 percent of the drill 
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SAVE MONEY 

ON 

Texas Instruments 

PERSONAL COMPUTERS 

TI-99/4A 
$379 


DISK DRIVE CONTROLLER.$229 

DISK MEMORY DRIVE.$369 

SOLID STATE PRINTER.$239 

32K MEMORY EXPANSION.$239 

R.F. MODULATOR. $43 

TELEPHONE MODEM.$169 

RS 232 ACC. INTERFACE.$169 

CONTROLLERS (PAIR).$31 

USER REFERENCE MANUAL.$9 




SOFTWARE 

PHM 3007 Household Budget Management.35.00 

PHM 3016 Tax/Investment Record Keeping.60.00 

PHD 5003 Personal Financial Aids. 18.00 

PHD 5022 Business Aids Library-.34.00 

Finance Management 

PHD 5024 Inventory Management.60.00 


PHM 3005 Video Graphs. 18.00 

PHM 3020 Music Maker.. 35.00 

PHM 3021 Weight Control and Nutrition. 53.00 

PHM 3023 Hunt The Wumpus. 22.00 

PHM 3030 A-Maze-Ing. 22.00 

PHM 3011 Speech Editor.. 39.00 

PHM 3014 Statistics. 39.00 

PHD 5004 Programming Aids I. 13.00 

PHD 5005 Programming Aids II. 22.00 

PHD 5008 Electrical Engineering Library. 26.00 

PHD 5012 Programming Aids III . 18.00 

PHD 501.3 Graphing Package ... 18.00 

PHD 5016 Structural Engineering Library. 26.00 

PHT 6004 Programming Aids I. 9.00 

PHT 6008 Electrical Engineering Library. 23.00 

PHT 6013 Graphing Package. 13.00 

PHT 6016 Structural Engineering Library. 23.00 

CALL TOLL FREE 


( 800 ) 233-8950 

IN PA, CALL (717) 327-9575 


COMPUTER 

MAILORDER 

501 E. THIRD ST., WILLIAMSPORT, PA 17701 

OVER 40 YEARS EXPERIENCE IN SOPHISTICATED ELECTRONICS 



Phone orders inviled (800 number is tor order desk 
only). Or send check or money order and receive 
free shipping Pennsylvania residents add 6% 
sales tax Add 3 °q tor Visa or M C Equipment 
•s subject to price change and availability without 
notice Please call between 11 AM & 6 PM 


problems correctly, he or she automatically advances to the 
next activity; if less than 60%, the program returns to the 
appropriate previous activity for more practice. 

The nine separate activities are presented in order of in¬ 
creasing difficulty-each building upon the skills learned in 
the previous one. The first two activities start with the con¬ 
cept of counting and recognizing quantities. Then, in the 
third and fourth activities, addition is taught through the 
concept of “bringing together,” and the child is taken from a 
graphic representation of horizontal addition into the realm 
of vertical addition. Activities 5 and 6 teach and drill subtrac¬ 
tion in a similar way—with the “taking away” concept and a 
progression from the horizontal to vertical. When the child 
reaches Activity 7, the module creates a box that is divided 
into 9 sections for testing addition and subtraction skills in 
both horizontal and vertical formats. The final two activities 
are structured in the form of a game to reinforce the relation¬ 
ship between numbers that were learned in the previous acti¬ 
vities: First an addition table, and then a subtraction table 
are displayed, and the child is challenged to fill in the inter¬ 
sections of rows and columns with the correct answers. 

The design of this CAI software is certainly straightforward 
—nothing revolutionary (apart from the speech) in teaching 
basic math skills. Other CAI math programs use this or a sim¬ 
ilar approach. But the polished way in which the design is 
implemented, however, sets this software far apart from the 
rest of the pack. Addition and Subtraction 1 scores very im¬ 
pressively when rated against the standards set forth in 
Frame 1 at the beginning of this article. 

Ease of Use & Suitability 

CAI software has been traditionally weak in its reliance on 
instructions and operating procedures that, unfortunately,- 
have been designed for a much higher level of understanding 
than the intended users actually possess. The developers of 
Addition and Subtraction 1 must have been well aware of 
this pitfall, because the module is so easy for a child to oper¬ 
ate. Being able to read, or having an adult constantly stand¬ 
ing alongside is not a requirement. Of course, the fact that 
the program resides in an “instant loading” Command Mod¬ 
ule and employs synthetic speech is a big plus in its favor, 
but these features on their own just wouldn’t be enough. It’s 
the numerous, unsung “hidden” features that have been 
"human engineered” into the software that make a world of 
difference. Take, for example, the operation of the control 
keys: The child doesn’t have to be able to read the nine-item 
activity menu or remember what is involved in each. Instead, 
if the period key (.) is pressed, the module goes into “over¬ 
view mode” and actually shows brief, speeded-up demonstra¬ 
tions (sequentially from 1 to 9) of what each activity involves. 
When the desired activity is reached, the child releases the 
key and the tutorial exercise for that activity begins. 

In a similar way, a few other keys are used to put the 
child in control of the speed and direction he or she wishes 
to travel with the module’s activities. For example, ENTER 
eliminates pauses (by deactivating the built-in response-time 
monitoring); the SPACE BAR stops and starts any activity; 
W(BEGIN) returns to the activity menu; R(REDO) or Z 
(BACK) returns to the beginning of the activity in progress, 
and A(AID) returns to the beginning of the section of the ac¬ 
tivity in progress. In all cases, the SHIFT or FUNCTION key 
is not required. All it takes is a single keystroke (with a built- 
in one second delay to guard against the child pressing the 
key accidentally). 

Users of this module will find a conspicuous absence of 
text instructions that have been traditionally imbedded with¬ 
in CAI software frames. The developers have substituted 
animated displays of what is expected of the users—demon¬ 
stration tutorials in a graphic language that children can easi¬ 
ly understand. Any child who has ever seen Sessame Street or 
Electric Company will feel right at home with this software. 

As I expected, the module is indeed “crash proof”—the 
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only way to halt the program is with a SHIFT Q or FUNC¬ 
TION Q. This is a necessity in a class environment where the 
unexpected always seems to happen. Another big plus in a 
school (or home, for that matter) environment is the module’s 
adaptability. The activities adapt to the user, rather than vice 
versa—letting children of different abilities proceed along at 
their own comfortable pace. The feedback each child receives 
is useful, immediate, and frequent. The error signals were de¬ 
signed to be low-key and nonintimidating—a red “X” mo¬ 
mentarily appears and an “uh-oh” sound is heard; the incor¬ 
rect response and red “X” are then erased, and the computer’s 
synthetic voice tells the child to “Try again.” If the second 
response is correct, the child gets one of the three visual and 
musical rewards (not too long to be repetitively boring); if 
incorrect, another red “X” appears and the computer works 
through the problem step-by-step, showing how to arrive at 
the answer. In Activities 8 & 9 (the module’s review activi¬ 
ties) the switch to this explanatory mode is made after only 
one incorrect response. Then, following the completion of 
these activities, a list of up to 32 incorrectly answered prob¬ 
lems appears with the message “Study these for next time!” 

+ 


▼ 


Motivation & Contribution to Learning 

Right from the opening music, the module grabs the atten¬ 
tion of it users—children or curious adults-and keeps them 
involved. Involvement is the key word here; there’s always 
something happening to provide sensory input. The program 
keeps “showing and telling” without freezing up—regardless 
of how unresponsive a timid child first exposed to the com¬ 
puter is bound to be. It does this by monitoring response 
time and repeating or continuously branching at a pre-deter- 
• mined pace unless overridden by a child pressing one of the 
keys. In this way, young users can participate in “Sesame 
Street Mode” until they perceive the computer as a friendly 
device and are both willing and able to interact with it. As 
protection for the TV, the screen goes blank after ten min-' 
utes of inactivity, but the speech does continue. In my opin¬ 
ion it would have been a nice feature at this point if the de¬ 
velopers had included the “spoken” message: “Please press 
any key to help me get my picture back.”) 

The use of color animation, music, and sound effects pro¬ 
vide effective rewards for answering correctly and advancing 
through the activities, as well as keeping a user’s attention 
focus'sed c mi the screen during a tutorial sequence. This is es¬ 
pecially important after a problem is missed, and the com¬ 
puter demonstrates how the correct answer was reached. Al¬ 
though I found all these motivating elements entirely satis¬ 
factory, 1 do believe that passive motivation such as this is 
not in. keeping with the other outstanding design elements in 
the software. Perhaps more active motivation could be 
achieved by incorporating the user’s name as part of a dis¬ 
play. And going one step beyond that, interractive motiva¬ 
tion could be built in by providing users with a graphic game 
. or art exercise as a reward'for a certain level of achievement. 
Without being a part of the actual programming team, how¬ 
ever, it’s difficult to say whether these additions would have 
been economically feasible: The additional memory overhead 
might have required an extra chip in the Command Module 
which could have made the price too expensive for the 
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software's intended market. 

The greatest strength of this software is that it contributes 
significantly to the learning process. This program is definite¬ 
ly not just a “page turner” like so much of the CAI course¬ 
ware presently available for other microcomputers. The 
amount of material presented in each segment or “frame” is 
just large enough to provide diversity without frustration, 
and just small enough to ensure a high success ratio without 
boredom. The sequence of material also appears to be opti¬ 
mized. All of this demonstrates to me a great amount of 
"fine tuning” and user testing in the development process. 

Computer Utilization & Hardware Justification 

At the risk of being repetitive, I must say that this math¬ 
ematics software fully utilizes the impressive array of capa¬ 
bilities built into the Texas Instruments computer and its 
speech peripheral. When evaluating a piece of software in re¬ 
gard to how well it makes use of a computer’s features, it’s 
important to ask yourself how well that same learning pro¬ 
cess could be duplicated with manual methods If the com¬ 
puter weren’t available. In the case of Addition and Subtrac- 
tion 1, the process couldn't be duplicated by static means 
alone. .This is a good indication that the module’s use of 
interactive video is indeed revolutionary in the world of per¬ 
sonalized CAI. 

Once again, I offer a suggestion (that may or may not be 
economically feasible in the context of production and mar¬ 
keting): A printed record of a child’s performance and pro¬ 
gress would be nice for adults to have. Accordingly, a print 
option for the T! thermal printer could possibly be built in. 

Finally, to be complete in any educational software evalu¬ 
ation, we should look at what hardware it takes to run the 
software. Here is where the Scott-Foresman package really 
shines, since all that is required is the basic TI-99/4(A) console 
—in contrast to other computer systems that frequently re¬ 
quire disk drives and expansion memory boards to run any¬ 
thing meaningful. The combination of low-cost Tl hardware 
and Scott, Foresman software certainly appears to be setting 
the standards for the practical CAI environment that educa¬ 
tors and concerned parents will be seeking during the decade 
of the 1980s. 


NEED CASSETTE TAPES ? 

For High Quality & Low Cost 
See Inside Back Cover (page 95) 
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Moving with You into the ’80s 


Microcomputer Courseware 


From Scott Foresman 


the Education Expert 


Reading Skills Courseware Series (Grades K-6) 
and Mathematics Courseware Series (Grades K-8) 
feature: 



• content correlated with basal series—to 
supplement instruction, provide enrichment 

• individualizing capabilities that meet each pupil’s 
learning needs 

• motivating animation, color graphics, music, and 
speech 

• comprehensive Teacher's Guides 

School Management Applications for 

administrators feature: 

• fourteen modules, each programmed to 
streamline a specific area of school 
administrative work 

• easy information storage and access, clearly 
organized printed reports 

• program instructions in plain English, helpful 
Reference Manuals 



Versatile microcomputer hardware 
systems are also available for both 
classroom and administrative use. 

Scott, Foresman Module Packages 

(Grades 1-3) for Speak & Read™ Educa¬ 
tional Model, complete with Pupil Books, 
Teacher's Guides, and optional Work¬ 
books, can enhance any reading cur¬ 
riculum by reinforcing essential skills. 


Jr Scott, Foresman and Company 

i? Electronic Publishing 

Glenview, Illinois 60025 


Learn more. Mail this coupon 
to receive free information. 

To Scott, Foresman Electronic Publishing 

Please send me free, full-color brochures on: 

I I Reading Skills Courseware Series and Mathematics 
Courseware Series (30621-6) 

I I School Management Applications (30661-5) 

I Scott. Foresman Module Packages tor Speak & 
Read™ (30692-5) 
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COMPUTER CHESS 








By Jerry Wolfe 


L ast time, we discussed the relation¬ 
ship between chess programs and 
artificial intelligence, and ex¬ 
amined some general characteristics of 
chess playing programs-both strengths 
and weaknesses. In this article, I’m go¬ 
ing to illustrate some of these character¬ 
istics through an actual game played 
between the 77 Video Chess program 
and myself. The game was played with 
the program set on intermediate level, 
normal mode, with 200 seconds per 
move allowed. 


White: J. Wolfe 

1. E2 -E4 

2. D2 - D4 


Black: TI-99/4 with 
Video Chess 

G7-G6 
F8 -G7 


especially crucial.) Long experience has 
shown that the success of future maneu¬ 
vers depends on an adequate control of 
this area. The last moves for each side 
fit well into this plan. White brings out 
a knight that bears down on the center 
while black prepares to play D7 - D5 
establishing his own foothold there. 

4. FI - C4 B7 -B5 

5 C4-B3 

White develops a piece and tempora¬ 
rily prevents D7 - D5. Black responds by 
driving back white’s bishop and prepar¬ 
ing a later pawn advance on the “queen- 
side” (i.e., the left-hand portion of the 
board). 


assigning numerical values to certain fea¬ 
tures of the position and summing these 
values to get a numerical value for the 
position. For example, being a pawn 
ahead in material might be worth, say, 
75 points, while not being able to castle 
(ever) might be “worth "minus 15 points, 
etc. The program does this for both 
sides, and the side with the largest score 
is judged to have the best position. In 
this evaluation scheme, material advan¬ 
tage is given the largest positive weight 
by far. 

The second basic feature of the pro¬ 
gram is a searching procedure. When 
combined with the static evaluation pro¬ 
gram, it allows the program to evaluate 
the consequences of various moves and 
to pick what it deduces to be the opti¬ 
mum one. Unfortunately, time and 
memory considerations limit the num¬ 
ber of moves the program can look 
ahead (i.e., its “search horizon") and 
can also limit the number of moves that 
are considered in response to a contem¬ 
plated move. 

Thus, in examining the position after 

5. ... D7 - D6, white has 38 legal 
moves. In deciding which moves to con¬ 
sider first as possible replies by white, 
the program will not begin with moves 
that result in immediate material loss by 
white. This again is due to the heavy 
weight assigned to material superiority. 
Thus the continuation 6. C3 - B5 might 
not even be reached in the search within 
the time limit. Sacrifices of material are 
difficult for all but the most advanced 
and powerful programs to either make 
or predict. 


These first two moves constitute the 
Pirc-Robatsch defense to the opening 
move E2 - E4. You may have noticed in 
your play that the program often makes 
the first several moves quickly and then 
slows down. This is because certain stan¬ 
dard opening sequences are stored in the 
program arid, played automatically in 
the appropriate situation. As soon as 
these run out or as soon as the position 
is no longer standard, the program re¬ 
verts to its' main programming and 
hence slows down. 


5 1 » • • 


D7-D6 


6 . 


D6 - D5 


Such programs (with look-ahead capability 
of nine moves) will be virtually impossible 


to trap 


the human player will 


most likely be the victim. 


3. B1 - C3 


C7 - C6 


The main purpose of the opening 
part of the game is to bring out the 
pieces and to get a reasonable foothold 
in the central part of the board. (More 
precisely, the “center” is the square re¬ 
gion whose corners are C3, C6, F6, and 
F3. The squares D4, D5, E4, and E5 are 


About the Author 

■Jerry Wolfe is a professor of mathematics 
at the University of Oregon in Eugene, Oregon. 
He has been playing chess since the age of 
eleven and began playing in chess tournaments 
at the age of fourteen. He is the 1979 Oregon 
Open champion and has won numerous other 
local tournaments in the Pacific Northwest 
during his chess "career." Currently he 
holds the official rating of candidate master. 


This is a weak move because of the 
following tactic. 

6. C3 - B5 

Black cannot capture the knight be¬ 
cause white then plays 7. B3 - D5 and 
captures the rook at A8 coming out 
with a two unit gain in material. (Recall 
that a rook is worth 5 units and a bishop 
3 units. These units represent the rela¬ 
tive strength of the two pieces. This is 
what is meant when we say a rook is 
worth more than a bishop.) 

You might be wondering why the 
program missed such a short sequence 
of moves. Well, the reason is fairly 
complex. The program has two basic 
features: The first is a static evaluation 
feature which takes a given position and 
evaluates it to decide which side is bet¬ 
ter and by how much. This is done by 


This is a good move and is the other 
side of the argument above. The pro¬ 
gram finds the only possible way to re¬ 
gain the lost pawn. Here the emphasis 
on material is helpful to the program. 

7. B5 -C3 " D5 - E4 

8. C3-E4 G7-D4 

9. G1 - F3 

Thus black has not lost a pawn after 
all. However, black’s position now has 
two unpleasant features: First, his pawns 
at A7 and C6 are weakened since they 
cannot be protected by pawns if at¬ 
tacked, but must be protected by pieces. 
This can tie down black's pieces and will 
make the pawns vulnerable especially in 
the later part of the game when fewer 
pieces remain. Secondly, to regain the 
pawn, black has exposed his bishop to 
attack. Thus white can develop a piece 
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(G1 - F3) and at the same time force 
black to waste a move either guarding or 
retreating his bishop. Note that white 
has three pieces developed and no pawn 
weaknesses while black has only one 
developed and definite pawn weaknesses. 
White already has a distinct advantage. 

9. ... C6 - C5 

This is another weak move. Black 
cannot retreat the bishop to G7 or F6 
because of the B3 - F7 check winning 
the queen, but D4-B6 was possible—pre¬ 
serving material equality. There is some 
evidence from this game and others I 
have played that the search horizon of 
Video Chess is about two moves in 
complicated positions. This would ex¬ 
plain why C6 - C5 (so as not to waste a 

move retreating) was considered best. 

10. C2-C3 D4-F2 check 

Now looking ahead two moves, the 
program apparently can see that if 
D4 - G7, then B3 - F7 check and white 
wins the black queen on the next move. 
However, later when I set up the posi¬ 
tion after D4 - G7 and asked the pro¬ 
gram to play white, it played D1 - D8 
winning only two pawns (the one on F7 
and' then the one on C5), leaving white 
two units ahead. Since giving up a bi¬ 
shop for a pawn also leaves black two 
units behind without having to trade 
queens, the move 10. ... D4-F2 

check was chosen. Thus it appears that 


the program made the right move for 
the wrong reason! 

11. El - F2 G8 - F6 

Again the program does not see the 
third move in the coming sequence. 

12. E4-F6 check E7 - F6 

13. D1 - D8 check E8 - D8 

14. B3-D5 

Thus white wins another piece. 

14. ... B8-C6 

15. D5 - C6 A8 -B8 

— 

SOLUTIONS TO THE PROBLEMS 
IN THE LAST ISSUE: 

Problem No. 1: 

1. H5 -H7 check!! G8 -H7 

2. E4-F6 Double check H7 - H6 (else 

E5 - G6 mate) 

3. E5 -G4 check 

4. F2 -F4 check 

(a) 4... G5-F4 

5. G2 -G3 check F4 -G5 

6. H2 - H4 check mate or 
5... F4-F3 

6.0-0 checkmate. 

(b) 4 .. . G5-H4 

5. G2 - G3 check. H4 • H3 

6. D3 - FI check B7 -G2 

7. G4 - F2 checkmate. 

Problem No. 2: 

1. ... F7 • FI check 

2. E3-G1 FI - F3 check I 

3. E4 - F3 C6 - F3 checkmate. 


New Problems (The solutions will appear in our next issue.) 


i was 


PROBLEM NO. 1 


White: Pawns: 

A2 , B2 , C2 , D2 , F2 , F5 

Knights: 

G1 ,G5 

Bishops: 

Cl ,F7 

Rooks: 

A1 , FI 

Queen: 

G4 

King: 

Gl. 

Black: Pawns: 

A7 ,B7 ,C7 ,D6 ,E5 ,G7 

Knights 

C6 ,E7 

Bishops 

C8 ,F8 

Rooks 

A8 , H8 

Queen: 

D8 

King: 

D7 

White to move and mate in at most three movt 

PROBLEM NO. 2 

White: Pawns: 

A2 ,B2 , C2 , E3 ,G2 , H2 

'Knights: 

NONE 

Bishops: 

NONE 

Rooks: 

FI ,C7 

Queen: 

NONE 

King: 

HI 

Black Pawns: 

A4 , B7 , D5 , H4 

Knights: 

E4 ,G4 

Bishops: 

NONE 

Rooks: 

H8 ' 

Queen: 

NONE 

King: 

G6 
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Black to move. There is no forced mate but black has a decisive sequence 
of moves available. Try and find it! 


White is so far ahead in material 
that winning is simple. Accordingly, 
I will relate the rest of the game with 
little comment. 

16. B2-B4 

This move allows white to play 
Cl - F4 without an annoying check at 
B2 by the black rook. 


16. ... C5 -B4 

17. Cl -F4 B8 -B6 

18. A1 - D1 check D1 - E2 

19. F4-D6 check E7 - D8 


19. ... E7 - E6 leads to a quick 
mate after 20. HI - El check E6-F5; 
21.D1-D5 check F5-G4;22. H2- 
H3 mate. 


20. 

D6 

-C5 

check 

D8 ■ 

■Cl 

21. 

C5 - 

B6 

check 

A7 

- B6 

22. 

C6 - 

D5 


B4 ■ 

■ C3 

23. 

HI 

- El 


C7 - 

B8 

24. 

D5 

-F7 


C8 - 

G4 

25. 

El ■ 

E7 


G4 

- F3 

26. 

G2 

■ F3 


F6- 

F5 

27. 

D1 

- D7 


B8- 

C8 

28. 

F7 

• E6 


B6 • 

B5 

29. 

D7 

- A7 

check 

C8 ■ 

D8 

30. 

E7 • 

D7 

check 

D8 

-E8 

31. 

A7 

- A8 

checkmate 




Currently, the most powerful chess 
programs can look ahead about six 
moves in fairly complicated positions. 
Advancements in hardware should ex¬ 
tend that capability to nine moves. This 
is about twice as many moves as chess 
masters can look ahead in complicated 
positions. Such programs will be virtual- 
y impossible to trap in simple tactical 
sequences and, in fact, the human player 
will most likely be the victim. To defeat 
such a program will require superior ap¬ 
plication of chess theory and strategy, 
as well as avoidance of open tactical 
situations where an eight or nine move 
look-ahead program would be at its best. 



ATTENTION 

DEALERS, 
DISTRIBUTORS, 
& BOOKSTORES 


CALL OR WRITE US 
ABOUT SELLING 
SINGLE COPIES OF 
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New! Specialized Software Assortment 
Packages from Texas Instruments . 



A Money Saving Way To Get Tl 
Home Computer Software. 

Many of TVs most popular software offerings are being packaged and sold in the assortments 
fisted below. Each software assortment package comes in a handy storage case consisting of a 
three-ring binder with special inserts to hold the command modules (or cassettes) and 
instruction booklets. The storage case alone is a $15 value and it's FREE with the purchase of 
an assortment package. What’s more, Unisource Electronics is offering you these packages on 
an introductory basis at EVEN GREATER SAVINGS. Just look! 

HOME FINANCIAL MANAGER — Can help you gain better control of your family’s 
financial planning, and can help guide decisions regarding your budget, investments, major 
purchases (such as a car or home), loans and savings. Three modules included are Home 
Financial Decisions, Household Budget Management and Personal Real Estate. (Note: A 
cassette tape recorder and interface cable are needed to maximize the record-keeping features 
of this package.) 

Sug. Ret. of Modules.$139.65 YOUR PRICE.$99.95 

Storage Case. 15.00 A $54.90 savings! 

Total Value.$154.85 

THE ELEMENTARY EDUCATOR — Can make your Tl Home Computer an effective 
instructional tool. The activities teach and reinforce basic language or math skills and raise 
your child’s computer-awareness level. Activities also feature music, sound effects and full- 
colored graphics. Three modules included are Early Learning Fun, Addition and Subtraction I 
and Beginning Grammar. Activities for preschool through 5th grade level. 

Sug. Ret. of Modules.$ 99.85 YOUR PRICE.$79.95 

Storage Case. 15.00 A $34.90 savings! 

Total Value.$114.85 

FAMILY ENTERTAINER — The whole family can enjoy limitless hours of fun, intrigue and 
challenge. Whether you’re destroying aliens, racing through mazes eluding cats or hunting the 
Wumpus while avoiding slime pits, you're in for some action-packed entertainment. Three 
modules included are The Attack, A-Maze-Ing and Hunt the Wumpus. 

Sug. Ret. of Modules.$ 89.85 YOUR PRICE.$69.95 

Storage Case. 15.0 0 A $34.90 savings! 

Total Value. $104.85 

Tl SUPER PROGRAMMER — Combines the elements you need to become proficient-in Tl 
Extended BASIC programming. Just insert the Tl Extended BASIC module in your console and 
the Teach Yourself Extended BASIC cassette in a cassette player (not included) and the features 
of a high-level programming language are at your fingertips. Available late November 

Sug Ret. of Software.$119.90 YOUR PRICE.$99.95 

Storage Case. 15.00 A $34.95 savings! 

Total Value.$134.90 Limited Availability. 

MUSIC EDUCATOR — The more you learn about music the more you enjoy it. Whether you 
understand the intricacies of chords or learn to compose your own melody. Tl’s Music Educator 
brings you a bright new note in improving your musical skills. Includes Music Maker command 
module and Music Skills Trainer cassette-based program (cassette player not included). 

Sug. Ret. of Software.$ 64.90 YOUR PRICE. $54 95 

Storage Case-,?. 15.00 A *24.95 sa rings! . 

Total Value.$ 79.90 

And a special offering from Unisource ... a complete Tl LOGO Add-on System for 

SnT^V^'nro 6 ’ 3 n °Kn! ,,er way f ° r y0ur kidS '° ,earn ,,le &asics °* P'ooramming a home 
computer. Tl LOGO is a child-appropriate, computer language that lets students of all levels of 

ability communicate with the Tl Home Computer using an easy-to-understand language. You get 

both the Tl LOGO command module and Memory Expansion Unit (32K RAM) — a total 

suggested retail value of $699.90 — at a savings of over $200.00! 

CALL TODAY! 

The simplest way to place your order is to call us, TOLL FREE: 

1 -800-858-4580 

In Texas, call 1-806-745-8835 

Phone lines open 8 a.m. - 6 p.m. CST. 

UNISOURCE ELECTRONICS, INC. 



Or, choose from the complete selection of Tl software. 


Package Title 

Home Management/Personal Finance 

Home Financial Decisions. 

Household Budget Management. 

Securltres Analysis. 

Personal Record Keeping. 

Tax/Investment Record Keeping. 

Personal Real Estate. 

Mailing List. 

Personal Financial Aids. 

Checkbook Manager. 

Bus. Aids Lib. - Inventory Mgmt. 

Bus. Aids Lib. - Invoice Mgmt. 

Bus. Aids Lib. - Cash Mgmt. 

Personal Financial Aids. 

Education/Personal Enrichment 

Early Learning Fun . 

Beginning Grammar. 

Number Magic. 

Video Graphs.] ” 

Video Chess. 

Physical Fitness . 

Early Reading t. 

Music Maker. 

Weight Control and Nutrition.!!! 

Addition and Subtraction It. 

Addition and Subtraction lit. 

Multiplication If. 

Tf LOGO (Requires Mem. Exp. Unit) 

Teach Yourself BASIC. 

Music Skills Trainer. 

Computer Music Box. 

Market Simulation. 

Teach Yourself Extended BASIC. 

Music Maker Demonstration. 

Bridge Bidding I. 

Speak & Spell Program. 

Speak & Math Program. 

Bridge Bidding II . 

Bridge Bidding III. 

Speiiwriter . 

Entertainment 

Football. 

Video Games I. 

Hunt The Wumpus. 

Indoor Soccer. 

Mind Challengers. 

A-Maze-Ing. 

The Attack tt. 

Blasto tt. 

Blackjack and Poker. 

Hustle tt. 

Zero Zap tt. 

Hangman ft. 

Connect Four tt. 

Yahtzee tt . 

Tt-Trek (w/speech). 

Mystery Melody. 

Oldies But Goodies - Games I. 

Oldies But Goodies • Games II. 

Saturday Night Bingo. 

Draw Poker. 

Others 

Diagnostic. 

Demonstration. 

Speech Editor. 

Statistics. 

Extended BASIC . 

Terminal Emulator II. 

Programming Aids I. 

Programming Aids II. 

Math Routine Library. 

Electrical Engineering Library. 

Programming Aids III. 

Graphing Package. 

Structural Engineering Library. 

t Developed by Scott Toresman 


Command 

Module Diskette Cassette 

$29.95 - - 

39.95 - - 

54.95 — — 

49.95 - - 

69.95 - - 

69.95 - - 

- 69.95 - 

- 19.95 - 

—' 19.95 — 

- 69.95 - 

- 69.95 - 

- 39.95 - 


- 14.95 


29.95 

29.95 

19.95 

19.95 

69.95 

29.95 

54.95 

39.95 

59.95 

39.95 
39.95 
39.95 

199.95 


34.95 

29.95 

19.95 

19.95 

24.95 

14.95 

29.95 
29.95 
29.95 
29.95 
29.95 
29.95 


29.95 

24.95 

14.95 

14.95 

19.95 

24.95 


24.95 

2495 

24.95 


29.95 

29.95 

24.95 

29.95 

24.95 

24.95 

39.95 

24.95 
24.95 

24.95 

19.95 
19.95 

19.95 

24.95 


14.95 

14.95 

19.95 

24.95 

29.95 

24.95 


9.95 

14.95 

19.95 

24.95 

19.95 


29.95 

69.95 

44.95 

44.95 

99.95 

49.95 


14.95 

24.95 

29.95 

29.95 

19.95 

19.95 

29.95 


9.95 

24.95 

24.95 

14.95 

24.95 


tt Developed by Milton Bradley 


^ORDER BY MAIL. 

Send to: Unisource Electronics. Inc., Box 64240, Lubbock, Texas 79464 


Name 


Address. 
City _ 


State 


Zip 


Please send me: 


Subtotal $ 


L 


Texas residents add 5% sales tax.$ 

Shipping and handling.$ 

TOTAL ORDER $ 

Check or money order enclosed. 

□ Visa □ MasterCard Card No.__ 

Exp. Date_Your Signature_ 


2.00 

















































































































































The LOGO Poet: 

USING RECURSION 
FOR LIST HANDLING 



By Henry Gorman 


S ince T! LOGO’S graphics capabilities are so vast and so 
easily used, there is a tendency to overlook its other 
features. List handling is a case in point: By combining 
some of LOGO’S list primitives—such operations as FIRST, 
BUTFIRST (or the converse LAST, BUTLAST)—with recur¬ 
sive [ see the adjoining A Primer on Recursion and List Primi¬ 
tives | OUTPUT lines, we can easily write programs to reverse 
a list, alphabetize a list, or even compose poetry. The several 
examples that follow will, I hope, demonstrate to you the 
powerful simplicity and list-manipulation potential of the 
language. 

A commonly encountered problem in list processing is 
that of verifying the presence or absence of a word in a list of 
words. The MIT LOGOgroup refers to this as the “MEMBER?” 
problem because the program is to answer the question, “Is a 
specified word in a specified list?” Some aspects of the 
program are obvious, for example, once the answer is obtained 
(whether TRUE or FALSE) it should OUTPUT to the user or 
program which called for the answer. It is also obvious that if 
the list is empty, the word was not in the list. Given just this 
much information, it is possible to frame a MEMBER? pro¬ 
gram: 

TO MEMBER? WORD :LIST 

IF :LIST = | | OUTPUT “FALSE 


END 

Papert, following Polya |sce Mindstorms: Children, Com¬ 
puters, and Powerful Ideas by Seymour Papert—available 
from the 99’er Bookstore |, notes that one way of solving a 
complex problem is to ignore the complex whole and focus 
on those parts which can easily be solved. Here, with this 
problem, if the first word in the list were the target word, 
then it would be easy to detect it and solve the problem: 

TO MEMBER? :WORD :LIST 

IF :LIST = | | OUTPUT “FALSE 

IF FIRST :LIST = :WC)RD OUTPUT ‘TRUE 


I•! N I') 

Now all that remains is solving for those cases in which the 
word is in an interior position or is absent from the list. Were 
the word second in the list, the problem would be solved by 
adding a line: 

IF FIRST BUTFIRST T 1ST = :WORD OUTPUT “TRUE 

since the second word in the list is the first word in a list 
which excludes the first word. Similarly, the third word be¬ 
comes the FIRST of the BUTFIRST of the BUTFIRST of 
the list, the fourth word is the FIRST of the BUTFIRST of 
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the BUTFIRST of the BUTFIRST of the list. It would be 
possible to write a separate line for each of those positions 
as well as the fifth, sixth, seventh or any other potential 
word position. However, a program that did this would quick¬ 
ly grow ponderous. Fortunately, in LOGO this is unnecessary. 
Notice that for each position an additional BUTFIRST is all 
that is needed. The problem therefore requires only a single 
recursion line to complete the program: 

TO MEMBER? :LIST WORD 
IF :LIST = [ | OUTPUT “FALSE 

IF FIRST :LIST = :WORD OUTPUT “TRUE 
OUTPUT MEMBER? BUTFIRST :LIST :WORD 
END 

Now when we run the program by typing MEMBER? 
[A QUICK BROWN FOX| “FOX, the first stack checks 
to see if the list is empty or if the first word in the list 
matches the target word, FOX. Then it awaits the results of 
a second stack which runs MEMBER? with the truncated 
list and the target word. The second stack then awaits the re¬ 
sults of a third stack which runs MEMBER? on BROWN 
FOX and “FOX. That stack then awaits the results of 
MEMBER? FOX “FOX which returns “TRUE (from the 
match in the second line). "TRUE is relumed to the second 
stack which outputs “TRUE to the first stack which outputs 
“TRUE to the program which first called it (or to top level). 
In event that there were no matches, one of the stacks would 
eventually run MEMBER? on an empty list and would output 
“FALSE. 


FIRST returns the first word in a list of words, or the first 
letter in a list of words, or the first letter in a word. LAST returns 
the last letter in a list of words, or the last letter in a word. 
BUTFIRST returns all but the first word in a list of words, or all 
but the first letter in a word. BUTLAST returns all but the last 
word in a list of words, or ail but the last letter in a word. 


Another common problem is to count, the number of 
words in a list of words. As before, the way to solve this 
problem is to outline the obvious elements of the solution 
and the simplest case. 

TO COUNT “LIST 
OUTPUT some number 
F.ND 

The simplest case occurs when the list is empty. 

TO COUNT :LIST 

IF :L 1ST' = | ] OUTPUT 0 

OUTPUT some number 

END 

When a list has just one word in it, the program should rec¬ 
ognize that and OUTPUT 1. Since a list with just one word 
is one word away from an empty list, The LOGO operation 
BUTFIRST applied to that list would yield the empty list. If 
there were two words in a list, then obviously the list is just 
two words away from an empty list. If a recursive line were 
put into the program which (a) applied BUTFIRST and (b) 




















added 1 to the count for every application of BUTFIRST, 
the program would count the words in the list. 

TO COUNT :LIST 
IF :LIST = [ ] OUTPUT 0 

OUTPUT (COUNT BUTFIRST :LIST) +1 
END 

For another example, consider a program which will 
reverse a list. The simplest case would be a list with no words. 

TO REVERSE :LIST 

IF :LIST = [ | OUTPUT [ ] 

END 

The next simplest case would be a list with just one word. 
For such a list we could have the program OUTPUT the 
SENTENCE or the word and an empty list. 

TO REVERSE :LfST 

IF :LIST = [ | OUTPUT I ] 

OUTPUT SENTENCE (LAST :LIST) (REVERSE 
BUTLAST :LIST) 

END 

This solution can be applied to longer lists as well! 

For a final example, let’s use LOGO to “write” random 
poetry. As a first effort at LOGO poetry, we’ll attempt some 
“free verse” by instructing our poet to randomly string words 
together from a list we select. First, we will need a program 
like SELECT to output a selected item from a list. 

TO SELECT :N :LIST 
IF :N = 1 OUTPUT FIRST :LIST 
OUTPUT SELECT :N - I BUTFIRST :LIST 
END 

Then we need a program to generate random numbers for 
SELECT. Since LOGO’S RANDOM primitive provides the 
integers through nine, if our list is less than ten, we can get 
a COUNT of it and use that COUNT. 

TO NUMB :LENGTH 
CALL RANDOM “N 

TEST BOTH :N > 0 :N < ( :LENGTH + 1) 

I FT OUTPUT :N 

IFF OUTPUT NUMB :LENGTH 

END 

By first typing 

CALL COUNT :LIST “LENGTH 

we can then use NUMB for the value of LENGTH. If we then 
type 

TYPE SELECT (NUMB :LF,NGTH) [a list of words] 


* ❖ 


* * *;; ' 


A PRIMER ON RECURSION 
AND LIST PRIMITIVES 

It is easier to understand recursion in f-OGO if one Imagines 
that each LOGO program is a job for a contractor to perform.-. Each 
contractor is a specialist and can only do one job. Every contractor 
follows strict working rules; these rules say that when the contrac¬ 
tor sees STOP, he must stop, when he sees 0UTPUT. life must pals, 
back some information and then stop. Of course, when a contract 
tor reaches an END, he also stops. When a contractor sees the 
name of any LOGO program inside of the program he is.comp let- - 
ing, he subcontracts that job out to another contractor; Thus, ih j 
COUNT (A B C], the first contractor reads the firstf line of ihV 
program, but the condition isn't met, so he moves to/lfrt'e two, 
There he is told to OUTPUT 1+ the COUNT of [B Cf, Since he 
can't do another program, he subcontracts the job. The subdqhtrac-* 
tor reads line 1 of COUNT, since it doesn't apply, he reads lin@ 2.* 
He is told to OUTPUT 1+ the COUNT of [C]. He can't do that, so 
he also subcontracts the job. The third contractor notes thdtTrhe i ' 
doesn't apply and line 2 tells him to OUTPUT 1+ the COUNT of 
[ 3. He also must subcontract the job out, and so the fourth 

contractor reads line 1 of COUNT. Since the list is empty, he 
OUTPUTS 0 and passes the job back to the third contractor; he, 
in turn, adds 1 and then OUTPUTS 1. In a similar way, the second 
contractor adds 1 to that and OUTPUTS 2. Then, the first contfae- 5 ' 
tor adds 1 to that and OUTPUTS 3, which is the correct answer. 1 
With this explanation, you should now be able to analy^f a pro¬ 
gram which gives you the answer to a number X raised to N 
power. " 11 • 

TO EXPONENT :X :N ' 
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END 

TO EXPONENT :X :N 
IF :N = 0 OUTPUT 1 


4 

t 

» ». 
If 


* > 


■ * * t 1 "• 

v *. .. * ■> > 

* *«v l ? * * * 

. * 1 * a «i 


T 
r A 


* 4- 




• * * 


• * 


t * 


END 

TO EXPONENT :X ;N 
IF :N = 0 OUTPUT 1 
IF :N = 1 OUTPUT :X 
OUTPUT (EXPONENT :X 
END 
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TO LINES :LIST 
LINE :LIST 
LINES :LIST 
END 


Now, putting this all together we get: 

TO POET :LIST 

CALL COUNT :LIST “LENGTH 

LINES :UST 

END 


the computer types one of the words in the list. We can write 
that as a program: 

TO VERSE :LIST 

TYPE SELECT (NUMB :LENGTH) :LIST 
END 

To turn this into a line of poetry, we should have a random 
number of such randomly picked words with a random num¬ 
ber of spates between words (E. E. Cummings’ style) and 
then a carriage return: 

TO SPACE 

REPEAT RANDOM (PRINTCHAR 32] 

END 

TO LINE :LIST 

REPEAT RANDOM [SPACE VERSE :LIST| 

PRINT SELECT (NUMB :LENGTH) :LIST 
END 

Note: PRINTCHAR 32 puts the character with ASCII code 
32, a space, on the screen. 

If we want continuing lines of poetry, we could write a recur¬ 
sive program; 


As an exercise, see if you can figure out how to write a 
LOGO POET that can compose blank verse, rhyming verse, 
or a set number of lines of verse. We’ll examine some solu¬ 
tions next time. 



YPLA MAKES ITS DEBUT 


* 


The Young People's LOGO Association (YPLA) is a new nonpro¬ 
fit corporation formed to promote a better understanding and appfe- 
ciation by young people, their parents, and their teachers, 6f the 
versatility and utility of the personal computer. As an integral part 
of this program, YPLA will promote the use of personal computers 
to aid in the education of the learning disabled, and the physically 
and otherwise developmentally disabled. YPLA's software exchange 
provides a catalog of User-developed Tl LOGO procedures. Young 
people 18 years old and under can join at no charge: Adults 'ir'fe’psteed 
to contribute $15 per year. For additional information contact 
James H, Muller,President, YPLA, 1208 Hillsdale 
TX 75081. Tel (214) 783-7548. 


le Dfiye/Richai^loni 
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CORRECTION; 

In last issue's article, LOGO and the Space Shuttle,: An Update 
Lamplighter Activities, Kay Murphy's name was inadvertently 
omitted as co-author. We'd like to apologize to Ms. 


* Vf v V IMVI^ VW 

Lamplighter School in Dallas, Tex|$L 
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The Young Peoples' LOGO Association wants you to be. 

The YPLA is a brand new club with some brand new ideas -- 
about “turtle graphics,” about personal computers. We’re young 
people talking to young people about computers. Across the 
room, across town, across the country. We’re young people 
sharing the tun and excitement of personal computing, sharing 
our ideas, Sharing software through our own software exchange. 

We’re parents and teachers that want to make the computer a 
family affair, a more creative learning center for the home and the 
classroom. We’re people that want to see the computer aid in the 
education of the learning disabled and the handicapped. We 
want to provide people with a central library of information on 
where and how this work is being done. 

We’re one Turtle Learning Center now with a nationwide network 
of interconnected local centers on theway. Where the young and 
the young-at-heart can enjoy learning about and using personal 
computers. YPLA membership is free to those 18 and under, 
interested adults are asked to contribute $15.00 per year. 


We re young people enjoying all sorts of things with computers, 
learning Tl LOGO and other languages, sharing the fun of it all. 
learning to make the most of the computer revolution. 

C’mon. Join us. Be a turtle! 


I Young Peoples’LOGO Association 

1208 Hillsdale Drive 
L —_— Richardson, Texas 75081 

() I want to be a turtle. Please enroll me as an adult member. I've 
enclosed my $15 contribution. { ) I prefer a young person 
membership. 

Name:_ 


Address: 


City:.---State:_ZIP: 






















































Interactive Forms /• from p' 38 * 

1220 REM »>> NO, IT IS THE END OF REPEAT SEQUENCE 
MARK->>> 

1230 REPS=REPS+1 

1240 IF REPS-MAXREPS THEN 1290 

2230 INPUT "REPEAT ENTRY? (1-YES 0=sNO> M :MORE 

1260 IF MGRE=NO THEN 1290 

1270 I^REPSTART 

1280 GOTO 390 

1290 REPEAT-NO 

1300 NEXT J 

1310 NEXT I 

1320 RETURN 

1330 REM 3 - PRINT COPIES 
1340 REM FORM PRINT SECTION 
1350 CALL CLEAR - 

1360 PRINT "ENTER NUMBER OF COPIES" 

1370 INPUT "TO PRINT-"s2 

1380 OPEN #3:"RS232/2.CR.EC.DA=8.BA=96CO% 

VARIABLE 132 

1390 PRINT #3iRESETEPS0NS 
1400 FOR 1-1 TO Z 
1410 FOR J=1 TO X 

1420 IF SEGS(AS<J),1,2)-BANG* THEN 1440 
1430 PRINT #3iAS < J) 

1440 NEXT J 
1450 NEXT I 
1460 CLOSE #3 
1470 RETURN 

1480 REM . "COMMENT" SUBROUTINE 
1490 COMMENTS-"" 

1500 FOR K-J+l TO LEN(AS<I>> 

1510 PS-SEGS(ASd) ,K, 1) 

1520 IF PS-QUOTES THEN 1620 
1530 P-ASC(PS) 

1540 IF P>96 THEN 1550 ELSE 1370 
1550 P*P-32 
1560 PS-CHRS(P). 

1570 COMMENTS—COMMENT S&PS 
1580 NEXT K 

1590 PRINT "MS ERROR IN LINE #"tl 
1600 PRINT "*** MISSING QUOTE..." 

1610 GOJO 1640 
1620 PRINT COMMENTS 
1630 PRINT "" 

1640 RETURN 

1650 REM "FIELDINPUT" SUBROUTINE 
1660 FRONTS-"" 

1670 BACK*-"" 

1680 REM »>> DECODE THE FIELD PARAMETERS >» 

1690 GOSUB 2670 
1700 PRINT 

1710 MIDDLES=SEGS< AS < LINE > , START,LENGTH) 

1720 PRINT ,, **"*cMIDDLES*"** h 

1730 PRINT 

1740 INPUT TEXTS 

1750 IF SEGS (TEXTS,1,1)-RIGHTARROWS THEN 1760 
ELSE 1780 

1760 RIGHTJUSTIFY-YES 
1770 TEXTS—SEGS(TEXTS,2,LEN < TEXTS)) 

1780 IF LEN(TEXTS)>LENGTH THEN 1790 ELSE 1830 
1790 PRINT "— TEXT STRING TOO LONG..." 

1800.PRINT."PLEASE ENTER SHORTER LINE" 

1810 com i700 

1820 REM >>>> GO STUFF THE FIELD >>> 

1830 GOSUB 2850 
1840 RETURN 

1850 REM "MATH TERM" SUBROUTINE 

i860 J=J + 1 

1870 ON TERM GOTO 1890,1990,2050 
1880 REM >>>> PROCESS FIRST TERM >>> 

1890 IF SEGS(AS(I),J,1)-COLONS THEN 1900 ELSE 1930 
1900 GOSUB 2670 

1910 FIRSJTERMS-SEG*(AS(LINE),START,LENGTH) 

1920 GOTO I960 

1930 ENDSIELD—POS(AS(I),CLOSEPARENS,J) 

1940 FIRSTTERMS-SEG*(AS <I>,J,ENDFIELD-J) 

1950 K-ENDFIELD 
1960 TERM=2 
1970 GOTO 2650 

1980 REM >»> PROCESS SECOND TERM »> 

1990 ENDFIELD—P05(AS(I),CLOSEPARENS,J) 

2000 SECONDTERMS-SEG*(AS <I) f J,ENDFIELD-J) 

2010 TERM-3 
2020 K-ENDFIELD 
2030 GOTO 2650 

2040 REM >»> PROCESS THIRD TERM AND CALCULATE »> 
2050 IF SECONDTERMS-EQUALS THEN 2070 ELSE 2200 
2060 REM >>» PROCESS ANSWER AND STORE AT 3RD TERM 
LOCATION >» 

2070 IF SEGS < AS(I),J,1)—COLONS THEN 2080 ELSE 2170 


2080 IF SEGSCAS(I),J*1,1>-RIGHTARROWS THEN 2090 
ELSE 2110 

2090 RIGHTJUSTIFY-YES 
2100 J-J+l 
2110 GOSUB 2670 
2120 TEXTS—FIRSTTERMS 
2130 GOSUB 2850 
2140 K-K+l 
2150 TERM=1 
2160 GOTO 2650 

2170 PRINT "ERROR IN MATH- FILE LINE#":I 
2180 GOTO 2650 

2190 REM »>> GET THE THIRD TERM.>>> 

2200 IF SEGS<AS(I),J,1)-COLONS THEN 2210 ELSE 2240 
2210 GOSUB 2670 

2220 THIRDTERM*—SEGS(AS(LINE),START,LENGTH) 

2230 GOTO 2270 

2240 ENDFIELD-POS < AS(I),CLOSEPARENS,J) 

2250 THIRDTERMS-SEG*(AS(I>,J,ENDFIELD-J) 

2260 K-ENDFIELD 
2270 TERM-2 

2280 IF POS(FIRSTTERMS,DECIMALS,1> +POS(THIRDTERMS, 
DECIMALS,1)=0 THEN 2310 
2290 ALIGN—YES 
2300 GOTO 2330 
2310 ALIGN-NO 

2320 REM »» OK, NOW DO MATH >>> 

2330 IF POS(BLANKS,FIRSTTERMS,1>=N0 THEN 2350 
2340 FIRSTTERMS-ZEROS 

2350 IF POS<BLANK$,THIRDTERMS,l)=NO THEN 2370 
2360 TH2 RDTERM*-ZERO* 

2370 FIRSTTERH-VAL(FIRSTTERNS) 

2380 THIRDTERM-VAL(THIRDTERMS) 

2390 IF SECGNDTERMS-PLUSS THEN 2400 ELSE 2420 
2400 TEMPTERM-FIRSTTERM+THIRDTERM 
2410 GOTO 2530 

2420 IF SECONDTERMS—MINUSS THEN 2430 ELSE 2450 
2430 TEMPTERM—F1RSTTERM-THIRDTERM 
2440 GOTO 2530 

2450 IF SECONDTERMS-MULTIPLYS THEN 2460 ELSE 2480 
2460 TEMPTERM-FIRSTTERM*THIRDTERM 
2470 GOTO 2530 

2480 IF SECONDTERMS-DIVIDE* THEN 2490 ELSE 2510 
2490 TEMPTERM—FIRSTTERM/TH1RDTERM 
2500 GOTO 2530 

2510 PRINT "MATH OPERATOR BAD - FILE LINE #":I 
2520 GOTO 2650 

2530 TEMPTERM-INT(TEMPTERM*IOO)/100 
2540 TEMPTERMS-STRS(TEMPTERM) 

2550 IF ALIGN-NO THEN 2640 

2560 IF POS(TEMPTERM*,DECIMALS,1)«0 THEN 2590 

2570 ADJUST-1 ■♦■LEN (TEMPTERMS) -POS (TEMPTERMS, DECIMALS, 1> 

2580 ON ADJUST GOTO 2600,2620,2640 

2590 FIRSTTERMS-TEMPTERMSIcDECIMAL*£ZERDS6ZER8S 

2600 TEMPTERMS-TEMPTERMS6DEC IMALStcZEROS 

2610 RETURN 

2620 FIRSTTERMS-TEMPTERMSScZEROS 
2630 RETURN 

2640 FIRSTTERMS-TEMPTERM* 

2650 RETURN 

2660 REM GET FIELD DEF. SUBROUTINE 

2670 K=J +1 

2680 NEXTCOLON—POS(AS(I) ,COLONS,K) 

2690 LINE—VAL(SEGS(AS <I),K,NEXTCOLON-K)) 

2700 K-NEXTCOLON+1 

2710 NE XTCOLON—POS(AS(I),COLONS,K) 

2720 START=VAL(SEGS(A*<I>,K,NEXTCOLON-K)) 

2730 K-NEXTCOLON+1 

2740 NEXTCOLON—POS(AS(I),COLONS,K > 

2750 LEND-VAL(SEGS(AS(I),K,NEXTCOLON-K)) 

2760 K—NEXTCOLON+1 

2770 IF REPEAT-NO THEN 2790 

2780 LINE-LINE ♦‘REPS 

2790 LENGTH-LEND—ST ART 4-1 

2800 IF LENGTH<1 THEN 2^10 ELSE 2830 

2010 PRINT "*** ERROR IN LINE #":I 

2820 PRINT "*** FIELD LENGTH NEGATIVE..." 

2830 RETURN 

2840 REM FIELD STUFFER SUBROUTINE 

2850 IF LEN(TEXTS)-0 THEN 3000 

2860 IF RIGHTJUSTIFYING THEN 2920 

2B70 FOR M-LEN(TEXTS)TO LENGTH-1 

2880 TEXTS—SPACESScTEXTS 

2890 NEXT M 

2900 RIGHTJUSTIFY—NO 

2910 GOTO 2950 

2920 FOR M-LEN(TEXTS)TO LENGTH-1 
2930 TEXTS—TEXTSScSPACES 
2940 NEXT h 

2950 IF START-1 THEN 2970 

Continued on p. 77 
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Super Language ... from p. 55 

tions Register Unit) lines to the monitor. Under TXMIRA, all 
peripheral devices are addressed via a fairly complex arrange¬ 
ment of CRU lines. Each device has its own CRU base address 
and CRU bit assignments, which means that a programmer 
must have very specific information about each device in or¬ 
der to perform any input or output. On the 99/4 assembler, 
these difficulties in handling the screen have been eliminated 
by the Basic Support Utilities. By loading a few registers and 
invoking the proper utility, a programmer can handle screen 
I/O in a much simpler way. Here are code segments which 
might be used for writing the characters AB to the upper 
left portion of the screen: 


The editor/assembler package has no special debugging 
utility. Personally, I do not find that this is a hardship. Even 
on systems with extensive debugging packages, I tend to de¬ 
bug without using those special facilities because they are 
hard to use and harder to understand. Furthermore, every 
package is different. My method of debugging usually con¬ 
sists of adding assembly language statements to my source 
program which enable me to isolate the problem, and then 
removing these statements after the problem has been fixed. 
For example, if I want a trace of program execution, I just 
-put temporary statements to display meaningful messages at 
different points in the program. The only danger in this ap- 



Larger system (TXMIRA): 


LI 

2,0 

MOVE 0 TO REGISTER 2 FOR INDEX 


LI 

12, >CO 

SET CRU BASE ADDRESS FOR SCREEN 


SBO 

> F 

SELECT CRU WORD 1 


LDCR 

@ZERO,l 1 

MOVE CURSOR TO HOME POSITION 


SBZ 

>F 

SELECT CRU WORD 0 

LOOP 

LDCR 

@AB(2),7 

PUT CHARACTER ON CRU LINE 


SBZ 

>8 

STROBE CHARACTER TO SCREEN 

V 

SBZ 

> A 

INCREMENT CURSOR POSITION 


INC 

2 

ADD 1 TO INDEX REGISTER 


Cl 

2,2 

COMPARE REGISTER 2 TO 2 


JLT 

LOOP 

LOOP IF MORE CHARACTERS 

ZERO 

DATA 

0 

DATA DEFINITIONS 

AB 

TEXT 

'AB' 



99/4 assembler: 



REF 

VMBW 

EXTERNAL REFERENCE TO BASIC SUPPORT UTILITY 

4 

LI 

0,0 

VDP RAM ADDRESS = 0 FOR HOME POSITION 


LI 

1 ,AB 

REGISTER 1 POINTS TO FIRST CHARACTER TO DISPLAY 

\ 

LI 

2,2 

REGISTER 2 = NUMBER OF BYTES TO WRITE 


BLWP 

@VMBW 

CALL BASIC SUPPORT UTILITY TO WRITE STRING 

AB 

TEXT 

'AB' 

DATA DEFINITION . . > ' i , ' f 


f 


y You can sec that the Basic Support Utilities really make 
, streen handling easier—by focussing your attention on mere¬ 
ly the VDP RAM (the memory associated with the 99/4 
monitor) addresses, and not having to worry about the logis¬ 
tics of the move. Furthermore, there is no apparent loss of 
execution speed in doing it this way. 

Another difference between the 99/4 assembler and those 
for larger Tl computers is that the IDLE instruction is not 
implemented on the 99/4. This causes no great difficulty, but 
it is useful to know. The IDLE instruction just causes the 
computer to wait for an interrupt; this can be done via another 
Basic Support Utility or other means, depending on which 
device w’ill cause the interrupt. 

The optional listing produced by the 99/4 assembler is 
quite complete. Statement sequence numbers, source state¬ 
ments, artel the hexadecimal code generated are all shown 
clearly. A symbol table can also be given and, of course, the 
number of errors is shown. Each error is also flagged in the 
body of the listing with a descriptive message. One very nice 
—and all too uncommon—feature is that the number of errors 
isalso displayed on the monitor when the assembler isfinished. 

Running and Debugging 

Once a program has been input, edited, and assembled 
with no errors, it can be loaded and run by choosing this op¬ 
tion from the menu. Another menu option (RUN PROGRAM 
FILE) allows the user to run programs which were assembled 
on larger Texas Instruments systems running under the DX10 
operating system. 
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proach is that, once debugging is complete, I might forget to 
remove one of these temporary statements in creating the 
final version. However, the 99/4’s editor can find all these 
temporary lines for me, as long as I take the simple precau¬ 
tion of putting some unique comment (such as DEBUG) on 
each temporary line. In this way, I can debug using only the 
assembly language itself. 

In summary, the 99/4 Assembler/Editor package is an ex¬ 
cellent programming tool. It is easy to use and powerful, and 
the object programs produced run with incredible speed. This 
package is a must for serious 9900 assembly language pro¬ 
grammers—both software developers and end users who want 
to access all the capabilities of the Tl personal computer. 



Note: At the time of this writing, the documenlion for this 
99/4 Asscmbler/Editor package has not yet been completed. 
However from the preliminary version we’ve seen, it is appa¬ 
rent that the final release as planned is intended for pro¬ 
grammers who already have experience with assembly lan¬ 
guage programming. Texas Instruments has confirmed that 
the package will not be structured as a tutorial for beginners. 
To fill this information gap, Emerald Valley Publishing Co. 
(the parent company of 99’er Magazine) will be publishing a 
companion book (in mid 1982) that is aimed at taking the 
BASIC programmer step-by-step into the realm of assembly 
programming on the TI-99/4(A). 














Write BASIC Program ... from p. 22 


Table 3 

Condensed Format Code Table 



k y? 




~ ‘ 133 GO * 

134 GOTO ^ 

135 GOSUB l 4 
^ 136 RETURN ► 

137 DEF v ' 
-• 138 DIM^" V * 


V 

Y 


L V 
i-U 


139 END 

140 FOR " 
o' l4l LET 
*r 142 BREAK 
-• 143 UNBREAK 
.>144 TRACE • 

145 UNTRACE 
V- 146 INPUT - J 
>.< 147 DATA ~ £ 
-'148 RESTORE - 
-'149 RANDOMIZE 
”'150 NEXT - 
"fc 151 READ - V 
152 STOP - 
*•> 153 DELETE-' 

154 REM “ 
v e 155 ON V 
-« 156 PRINT- . „ 
—' 157 CALL" l 
-158 ...OPT ION 
OPEN 

• T60 CLOSE 


171 ??? 

213 

LEN/ 

172 ??? 

214 

CHR$( 

173 ??? 

•- 215 

RND( 

174 ??? 

- 216 

SEGS( 

175 ??? 

217 

POS( 

T7lTTFrEfi LV 

218 

valC 

“177 TO 

219 

STRSC 

178 STEP 

220 

A SC/ 

179 , 

221 

PI 

180 ; 

222 

REC 

181 : 

223 

MAX ( 

182 ) 

224 

MINf, 

183 { 

225 

RPTSC 

184 & • u h; 

•“•' v *•' 226 

??? 

•IBs ??r 

227 

??? 

v- 186 OR 

228 

??? 

- T87 ANb 

229 

??? 

— T8f XOR 

230 

??? 

tag" NOT’ 

231 

??? 


«• Cr ri, 

*U-iM 

trv: 

+ M?l 


Iffjg 

— T55"DISPLAY 

'?is - ERRM r 

166 WARNING 
O/ 1 67 SUB EXIT 
1_ 6« SUBEN D 
169 RUN - 
-y TZQ J.INEU T- . i 


*rair= 

.13.1 < 

192 > 

193 + 

194 - 

195 X 

196 / 

197 A 

198 ??? _ 

199 ???«■/* i*<r 

200 ??? 

201 .??? if*.***** 

-202 EOFf 
< 203 ABSf 
L ' 204 ATNf 
• J 205 COST 
‘ 206 EX PC 
f 207 INT( 

, 208 LOGC 

209 SGN( 

1 210 SIN( 

211 SQRC 

212 TAN( 


233 DIGIT 



VARIABLE 
RELATIVE 
INTERNAL 
SEQUENTIAL 
OUTPUT 
UPDATE 
APPEND 
FIXED 

PERMANENJL 


# (files) 
VALID AT 


f 

( 


- 



Table 4 

Condensed Record Structure 

OPEN #1:"DSK1 .BASIC",INPUT,DISPLAY,VARIABLE 163 


! 


ASCII CODE FOR LINE 100 

23 179* c t> *•» m /<■ 

162* ''«■/* V 

179* c *■ -*» *• * 

74*** v n /u i / •? - 1 

*A/*»»*« 

, v «/ £> i * * 


** 0 c 


C tr* 


•rr: 


159* £ r>A * / 

253* # f 24 

200*^'-'"'* *-' x ?<'+*■** 25 

1 0yi\,- ? * s~/i n • cj >26 

49 1 /27 

181* - 28 
199* r '“*-':‘ J r29 

10 t/i »r<r*«•*■*■!*% 3Q 

68 D /> 31 

83 S 32 

75 K 
49 1 
46 . 

66 B 
6,5 A 
83 S 
73 I 

67 C 

; 79* Get* n A' 

146* T PRESS ANY KEY TO CONTINUE 


200 
3 a;* 

49 1 
54 6 
51 3 
0 


u 


Continued on ^ 78 

r 


Interactive Forms . . . from p. 75 

2960 FRONT*=SEG$(A$(LINE)1,START-1— 

2970 IF LEND=LEN(A*(LINE)>THEN 2990 

2980 BACK*=SEG$(A*(LINE),LEND+1,LEN(A$(LINE))) 

2990 AS(LINE)=FRONT*&TEXT*&BACK* 

3000 RETURN 
3010 END 


/ 




TOP QUALITY 

Professional 
Programming 
for your 

TI-99/4 

ACCOUNTING PACKAGE 

Runs on cassette; no disks or printers 
needed. Enter journal in any order; out¬ 
put is journal in date order, general ledger 
in date within account no. order, balance 
sheet and profit & loss statement. Copy 
from screen to books. RAM sort limits 
max. 100 journal entries per run. Takes 
about VA hours. Saves account balances 
for next run. $50,00 

EARLY READING PACKAGE 

Your words or oursare displayed in giant 
lower case letters. Child must type word 
on keyboard—each letter is checked 
when typed. Child has another chance if 
wrong; child's letter displayed under the 
original if right. Musical tune is rewarded 
when word correctly completed. Speech 
Synthesizer optional. $15.00 

WORD LIST PACKAGE 

Can be used alone, or with Early Read¬ 
ing. Type in your child's short story. 
Computer sorts words, deletes duplicates 
and saves on tape a list of words to be 
learned for reading that story. $10.00 

CONCENTRATION 

A version of pelmanism using your choice 
of 10 three letter words- each scattered 
randomly two times on a 4x5 grid. Words 
are displayed in place then replaced by 
numbers. Object is to remember which 
numbers covers which word and find 
matches. Computer keeps score and also 
decides first player. Speech Synthesizer 
optional. $10.00 

PERCENTAGE COMPARISONS 

Enter and save current and historical 
values of stocks, currency, commodities, 
etc. Calculates, sorts, and lists by per¬ 
centage changed. $7.50 

Other Programs Available. 

Write or Call for Free Catalog. 

Custom programming 
& dealer inquiries invited 

In USA & Canada, send check or Money 
Order. Elsewhere send International 
Money Order. (Prices are in U. S. dollars. 
Canadians add 20% for CAN$ Orders; 
Ontario residents add further 7% P. S. T. 

Master Charge & VISA Accepted 
for mail & phone orders worldwide 

(Include all information embossed on card.) 

Programs Sent Via Airmail 
on Tape Cassette 

ANTHISTLE SYSTEMS 
& PROGRAMMING LTD., 

563 Patricia Drive 
Oakville, Ontario 
Canada, L6K 1M4 

Tel. (416) 845-7959 
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CUSTOM DESK FOR THE 99/4 


This attractive, wooden desk with a 
laminated walnut grain finish is specifically 
designed for your 99/4 System. 24" Deep, 
and 40" Wide (64" Wide if you add both 
extension shelves), allows you to organize 
your computer and all of your accessories. 
You gain even more space by adding this 
monitor shelf pictured above. A six plug 
power strip is available for your con¬ 
venience. The desk assembles in minutes 
without tools. Freight paid by Computer 
Roomers. Please allow 2 weeks for delivery. 



ORDER FORM 


1 or 2 


BASIC DESK <® $145 



EXTENSION SHELVES (12") 
$20 each 

MONITOR SHELF @ $35 

PLUG STRIP @ $30 


COMPUTER ROOMERS, INC. 

1250 MAJESTY DRIVE, DALLAS, TX 75247 
(214) 6300280 


CHECK ENCLOSED 

(ADD 5% FOR TEXAS DELIVERIES) 


□ 

□ 

□ VISA# 


MASTERCARD#. 


EXP. 

EXP. 


SHIP 

TO 


Ai Hie same time, several codes are 
reconstructed into things which can't be 
undmh.ud directly (e.g., 171-175, 185, 

and 198-201). It is apparent that some 
of the ASCII codes are used lor pur¬ 
poses other than direct translation to 
BASIC. Some might be used as descrip¬ 
tors of subsequent bytes (i.e., for pur¬ 
poses of identifying trailing bytes as 
numeric data, line number references, 
string data, etc.) while other of these 
ASCII codes may not be assigned at all. 


100 REM *************XXXXXXX 

110 REM * t 

120 REM * CONDENSED FORMAT X 
130 REM X CODE TABLE * 

140 REM x X 

150 REM XXXXXXXXXXXXXXXXXXXX 

160 REM 

170 REM BY JOHN CLULOW 

180 REM 99’ER VERSION 9.81.1XB 

190 REM 

200 REM XXXXXXXXXXXXXXXXXXXX 

210 REM- 

220 REM OPEN OUTPUT FILE 
230 RErC *• DSK1 . FILENAME " 

240 REM USING PARAMETERS OF 
250 REM MERGED FILE FORMAT 
260 REM 

270 REM XXXXXXXXXXXXXXXXXXXXX 

2B0 REM 

290 OPEN #1 : * DSK1 .FILENAME’*, 

DISPLAY ,OUTPUT,VARIABLE 163 
300 REM 

310 REM XXXXXXXXXXXXXXXXXXXX 

320 REM 

330 REM BEGIN COUNTING (I) 

340 REM WITH HIGH BIT ON 
350 REM I.E. 129 130 ... 254 
360 REM 

370 REM XXXXXXXXXXXXXXXXXXXX 

78 99'er Magazine Sept/Oct 1981 


38 0 REM 

390 FOR 1=129 TO 254 
400 REM 

410 REM XXtXSXXXXXXXXXXXXXXX 

420 REM 

430 REM CALCULATE VALUES FOR 
440 REM FIRST TWO BYTES TO 
450 REM REPRESENT LINE NO.S 
460 REM SO THAT LINE NO WILL 
470 REM EQUAL ASCII CODE 
480 REM 

490 REM XXXXXXXXXXXXXXXXXXXX s 

500 REM ) 

510 LNBYTE1=INT(1/256) 

520 LNBYTE2=I-256*LNBYTE1 
530 REM 

540 REM XXXXXXXXXXXXXXXXXXXX 

550 REM 

560 REM WRITE RECORD: 

570 REM 

580 REM BYTE# 1 S<2=L INE NUMBER 
590 REM BYTE#3=C0DED BASIC 
600 REM BYTE#4=END OF LINE 
610 REM 

620 REM «*XXXXtXXXXSXXXXXXXX 

630 REM 

640 PRINT #1:CHRX(LNBYTE1)tCHRX 
(LNBYTE2)&CHRS <I)&CHR*(O) 
650 REM 

660 REM XXXXXXXXXXXXXXXXXXXX 

670 REM 

680 REM REPEAT LOOP FOR NEXT 
690 REM ASCII CODE. 

700 REM 

710 REM XXXXXXXXXXXXXXXXXXXX 

720 REM 
730 NEXT I 
740 REM 

750 REM XXXXXXXXXXXXXXXXXXXX 

760 REM 

770 REM WRITE END OF FILE 
780 REM MARK = LINE NUMBER 
790 REM OF 65535 
800 REM 

810 REM XXXXXXXXXXXXXXXXXXXX 


820 REM 

830 PRINT #1:CHR*(255)S<CHR*<255> 

840 REM 

850 REM XXXXXXXXXXXXXXXXXXXX 

860 REM 

870 REM CLOSE FILE AND STOP 
880 REM 

890 REM XXXXXXXXXXXXXXXXXXXX y , 

900 REM v L $ £ 1 /• i' '''S 1 

910 CLOSE #1 osU, P-XT 1 

~, / / Jp. ^ ' __ 


720 STOP 


JTfZrr 


lS 0 4 '> 

Putting this question aside for the 
moment, let us sec how we could write 
a program that would remove all REM 
statements from another program. The 
ASCII code for REMARK (REM; is 
found in Table 3 to be 154. If we as¬ 
sume that the ASCII character with 
code 154 will be found in the third posi¬ 
tion of a REM statement in condensed 
format (following the line-number 
bytes), we can write a "REM Remover’’ 
program very simply. Such a program 
would need to read a record from a pro¬ 
gram file saved with the MERGE option, 
sec if the third byte is CM R$( I 54), and 
if not, print the record in a second file. 
That is what the following program 
does. To use it with the "Condensed 
Format Code Table" program, save that 
program with the MERGE option 
(SAVE DSK1 .CODE, MERGE), run the 
"REM Remover," and load the output 
file, DSK1.REMF REE, with the MERGE 
command (MERGE DSK 1 .REMFREE). 
Presto, Chango! LISTing the program 
shows it to be "REMIcss," and this 





































version may now be saved in the usual 
way under a new file name. 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 


REM ¥*¥«¥¥*¥***t**t**t*t 

REM * REM REMOVER * 

Rem utmtmmmuu 

REM 

REM BY JOHN CLULOW 

REM 99* ER VERSION 9•B1.1XB 

REM 

PRINT -ENTER FILE NAME M 
INPUT M 9 DSK1•XYZ’ - ": XS 
OPEN #1 z X$,DISPLAY ,INPUT , 
VARIABLE 163 
OPEN #2:"DSKI*REMFREE", 
DISPLAY ,OUTPUT,VARIABLE 163 
EOF*=CHR*(255)&CHRS(255) 
LINPUT #1:X$ 

IF SEGS< X $,1,2)=EOF % THEN 270 
IF SEG*(X*,3,1)=CHR$(154) 

THEN 260 
PRINT #2rX* 

GOTO 220 

PRINT #22 CHR*(255)&CHRS(255) 
CLOSE #1 
CLOSE #2 
STOP 


CHANGES IN PROGRAMMING AIDS m 


Program CREF — This change should be made in the 
original version of CREF to prevent occasional file errors. 
Lins 816 traps records which are too long, line 817 
truncates these records, and lines 818 and 819 inform 
yoi. that this has occurred and to what keyword, varia¬ 
ble name etc. 

816 IF LEN (E$(II)}< 254 THEN 820 

817 E$(II)=SEG$(E$(II), 1,253) 

818 PRINT “* LINE TRUNCATED FOR: 

819 PRINT “ ”&N$(II) 


9? 


Of course, more complex applica¬ 
tions require a more detailed knowledge 
of condensed format structure. The 
“Condensed Record Structure” program 
listed below will allow you to examine 
the condensed structure of every line in 
any BASIC program. With such a repre¬ 
sentation and the list of codes in Table 


Users who do not have a printer may want to make the 
following changes in the CREF program. The original 
program (without the changes) should be retained in the 
event of future use of a printer. 

a. Delete lines: 220, 230, and 820 

Delete the characters “#2” from lines: 400, 520 
580, 620, 660, 700, 730, 750, 860, 880, and 890 
Replace the characters " ;CHR$(13)with the 
character “ : ” in line 520 


100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 


5 y u c-:) & s 


Di</* £//j tc 


REM XXXXXXXXXXtttXXXXXX 

REM * 

REM * CONDENSED RECORD 
REM * STRUCTURE 

REM « 

REM XXXXXXXXXXXXXXXXXXX 

REM 

REM BY JOHN CLULOW 

REM 99*ER VERSION 9.81.IXB 

REM 

OPEN #1:”DSK1.BASIC”,INPUT ,DISPLAY ,VARIABLE 163 
LINPUT ftlsX* 

BYTE1=ASC(SEG*(X*,1,1)) 

BYTE2=ASC(SEGKX*,2, 1) ) 

L I NENUM=BYTE l*256-*BYTE2 
IF LINENUM=65X5S THEN 430 

DISPLAY AT (1,3) ERASE ALL: "ASCII CODE FOR LINE "ScSTR* (LINENUM) 

C0L=1 :: J=0 

FOR 1=3 TO LEN(X*) 

IF I>62 THEN 400 
R0W=I-2*(COL-1) 

J-J+l 

DISPLAY AT < ROW,COL):STR*(I) 

Y=ASC(SEG*(X*,1,1)) 

DISPLAY AT(ROW,CQL+3):STR*(Y) 

IF Y> 128 THEN DISPLAY AT (ROW, COL+6) :'■*" 

IF Y>31 AND Y<91 THEN DISPLAY AT(ROW,COL+6):CHR*<Y) 

IF J<20 THEN 390 
C0L=C0L+10 :: J=1 
NEXT I 

DISPLAY AT <24,2) BEEP: "PRES5 ANY KEY TO CONTINUE 1 ’ 

CALL KEY <0, K, S) : : IF S=0 THEN 410 

GOTO 210 

STOP 


3, a great deal ol additional information 
can be deduced. 

For purposes of illustration, let us 
treat the "Record Structure” program 
itself as the program to be analyzed. 
First enter the program without the 
REM statements, and then save it as 
DSKI .BASIC,MERGE. Now enter RUN 
to display the code structure of each 
line. The display for the first lino is 
shown in Table 4. 

The first column in each pair of col¬ 
umns shows the position of the byte 
code. The first position displayed is 3 


because 1 and 2 are used for the line 
number. An asterisk has been placed 
beside all ASCII codes which exceed 
128 to easily identify them as "instruc¬ 
tion” codes. Codes which are between 
32 and 94 are followed by their corre¬ 
sponding ASCII character representa¬ 
tions. 

Since it is known that the first line of 
the program is OPEN #1 :"DSK1 .BASIC 
”, INPUT, DISPLAY, VARIABLE 163 let 
us see what sense can be made of the 
corresponding condensed code. Codes 
159 and 253 correspond to OPEN and 


#. Although the meaning of code 200 
is not known, in looking ahead to col¬ 
umns 6 and 7 we might hypothesize 
that 200 means "A number is about to 
be encountered, and the next byte will 
give the number of bytes used to repre¬ 
sent that number.” 

Although 181 is a “ : 199 is 

another unknown. Looking ahead at 
positions 10-20, we might again hypo¬ 
thesize that 199 is used for strings, in 
the way that 200 is used for numbers. 
The "10” in position 10 is consistent 
with this hypothesis since DSKI.BASIC 
is 10 characters long. Next, we encoun¬ 
ter the codes for ,INPUT,DISPLAY, 
VARIABLE . In position 27 another 
200 is encountered, and the hypothesis 
applied earlier to the 200 in position 5 
is consistent with what follows-a "3” 
in position 28 followed by the 3 num¬ 
bers ''163”. Finally, a 0 is encountered 
that indicates cnd-of-line. By writing 
program lines specifically for the pur¬ 
pose, you can use the "Condensed 
Record Structure” program to deduce 
additional information about condensed 
format. 

Part II of this series will discuss the 
writing of more sophisticated utility 
programs and “generator” programs 
-4.C., BASIC programs that can write 
other BASIC programs. 
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Part 2: 

Typing for 
Accuracy 


By Regena 


T yping for Accuracy provides a stu¬ 
dent with practice in typing words 
after he or she has learned the ba¬ 
sic keyboard layout. The words used in 
the drill are in categories depending on 
where the keys are located on the key¬ 
board. 

Seven finger-placement categories 
using different typewriter keys are of¬ 
fered: home keys; home row; top row, 
middle finger; top row, pointer finger; 
ring finger; little finger ; and bottom row. 
A typist may choose one of the catego¬ 
ries for each drill. 


The program uses graphics and sound 
effects to liven up the drill: A rocket ap¬ 
pears on the screen .and a word is printed 
on the rocket while a 1.5-second tone 
sounds. A student then types and enters 
the word. I fit has been typed incorrectly, 
the rocket blasts; if it has been typed 
correctly, a second tone is sounded and 
the score is incremented. The rocket 
then moves upward (with gases trailing 
behind) and a different word appears. 

At the end of ten words the student’s 
score is tabulated and displayed as a per¬ 
cent accuracy rating. The student may 


then choose from the seven drills or 
may exit the program. 

This drill is not meant to be a speed 
drill since beginning typing students 
need to gain accuracy and familiarity 
with the keyboard before working on 
speed. However, if the student wants a 
time test, an approximate words-per- 
minute rate can be estimated using the 
tones—i.e., if words arc entered as the 
tone ends, the rate is 40 wpm. 


Line Nos 
170 

180 

190-250 

260 

270 

280 

290450 


460490 

500-530 

540 - 

550-580 

590 

600 


EXPLANATION OF THE PROGRAM 
Typing for A ecu racy 


Dimensions the array AS to allow for twenty 
words. 

Sets the y-coordinate for drawing the rocket. 
Words used in the drills. 

Prints the title screen. 

Prints instructions. 

Prints the menu screen of the seven categories. 
Awaits the student’s choice. Depending on the 
category chosen, a certain DATA statement is 
RESTOREd which contains the words for 
that particular category. 

Draws the rocket. 

Reads the number of words in the category 
and stores the words in the A$ array. 
Initializes the score. 

Randomly chooses a word. Once a word is 
chosen it is not used again in the drill. 
Calculates the coordinate for printing the word. 
Sounds the tone for 1.5 seconds. 


610-630 

640 

650-690 


700-750 


760-780 


790-830 

840 

850 

860-940 


960 

Subroutines 

970-1580 

1590-1730 

1740-1930 

1940-2160 


Prints the word to be typed on the rocket. . , 
Awaits the student’s typed word. < •* 

Compares the student’s word with the giyeh* 
word. If it is incorrect, a white noise is sounded; 
if it is correct, a tone sounds and the score is 
incremented. 

If it is the first word, draws the bottom of the 
rocket. f 

If it is the second word, completes the fins of* 
the rocket. 

The rocket moves up and has a trail under if. 
The words are cleared. 

tt % 

AS set to zero so the word cannot be used 
again. 

Returns for next word. 

Prints score and waits until student is ready 
to continue. 

END. ‘ 1 • , 


% 


+ 4 


Prints title screen with music. 

Prints instructions. 

Prints menu screen of seven categories. 
Draws the rocket. 


ttmtxxtsxtixstttmtt 

* TYPING FOR ACCURACY * 
txxtxtxxxxtmtxxxxxtxx 

79'ER VERSION 9.81.1 
BY REGENA 


100 REM 
110 REM 
120 REM 
130 REM 
140 REM 

150 REM 
160 REM 
170 DIM AS<20) 

1 SO Y*=20 

190 DATA 15, FAD, A, AS, DAD - AD , SAD, LAD , FALL, ALFALFA, SASS, LASS, DADS, LADS, FALLS, FADS 
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Typing Tutor.. . 

200 DATA 16,HAD,HAS,GAS,SAG,HALL,HALLS,LADS,SAGS,HAG,LAG,LAGS,SLAG,SHALL,SASH,DA 
SH,FLASH 

210 DATA 17, DEAF, DEED, SEED, FEED, HEED,LIKE, KILL, FILL, FEEL, FEES,LIED, DIAL, SLIDE, FL 
IES,LIFE,SLID,GLIDE 

220 DAT A 17,TAG,HAT,TALL,THY,DAY,HAY , J A Y ,GAY,LAY,TAR,RAT,STAR,STAFF,FAST,TRY,SAY 
, YARD 

230 DATA 20, WISH, EXAM, EXACT, TEXT, TWO, WON, SOW, WASH, WORLD, OWE, WORD, LOOK, LOSE, SOD, W 
□W,TOW,TEXAS,OXEN,MIX,WORSE 

240 DATA 16,QUAKE,QUIZ,QUIP,ZAP,QUIT,PIQUE,PLAQUE,PUZZLE,PLAZA,SAP,ZIPPER,PRIZE, 
QUICK,SQUEEZE,ZEAL,ZIP 

250 DATA 18,CALM,CAN,MEN,NIMBLE,EXACT,EXAM,MIX,NIX,BUZZ,ZOOM,NAVY,CAB,BACK,BOMB, 
ZOMBIE,CAVE,VA CATE«V ARMINT 

_ 

"27CT GHSi m l **0 



K> GOSUB 1740 


~2vo Call key(o,key,sts> 

300 IF KEY<49 THEN 290 
310 IF KEY>56 THEN 290 

320 ON (KEY-48)GOTO 330,350,370,390,410,430,450,960 

330 RESTORE T90 

340 G0TQ_46£L 

350 "RESTORE 200 

360 GOT O 460 

370 'RESTORE 210 

380.GQTJQL 460. 

390 RESTORE 220 
400 GOTO 460 
410 RESTORE 230 
420 GOTO, 4_6p 
430 RESTORE 240 
440 GOTO 460 
450' RESfQRE 2! 
iALirXUEAR 

470 CALL COLOR(1,2,1) 

480 CALL SCREEN( 8 ) 

490 GOSUB 1940 
500 READ N 
510 FOR 1=1 TO N 
520 READ A*<I> 

530 NEXT^l. 

540 5C0RE=0 
550 RANDOMIZE 
560 FOR K=1 TO IO 
570 W=INT<N*RND>+1 
580 IF AS <W> = m O"THEN 572. 

590 XC= 24--K 

600 CALL SOUND <1500,—1,2) 

610 FOR J = 1 TO LEN(AS <W)) 

620 CALL HCHAR(XC,J +17,ASC(SEGS(AS(W),J,1))) 

630 NEXT J 
640 INPUT BS 
650 IF BS=AS(W)THEN 6Q0 
660 CALL SOUND ( 1006 ,->;“l) 

6 70 GOTO 700 

6fe0 CALL SOUND<IOOO,-2,1) 

690 SCORE 3 SC0RE+1 
700 IF KOI THEN 760 
710 CALL HCHAR(23,Y-4,98) 

720 CALL HCHAR(23,Y+4,98) 

730 CALL HCHAR(23,Y—3,99) 

740 CALL HCHAR < 23,Y+3,1OO) 


7A0 IF K<>2 THEN 790 
770 CALL HCHAR<23,Y-4,99) 

780 CALL HCHAR(23,Y+4,1OO > 

790 CALL HCHAR<23,Y-l,105,3) 

800 CALL SOUND <1,44000,30 > 

810 CALL HCHAR(XC—1,Y—2,98,7) 

820 CALL HCHAR < XC—1,Y+5,32,3) 

830 CALL HCHAR(23,1,32,15) 

840 AS(W)="0" 

8 50 NEXT K _ _ 

860^"CSLL CLEAR 

870 FOR' 1=2 TO 8 

880 CALL COLOR(1,2,1) 

8 90 NEXT I 
960 SC=10*SCORE 

910 PRINT s s: 5 : M YOUR SCORE IS";SC,"PERCENT ACCURACY. 
920 PRINT :::"PRESS ENTER TO CONTINUE." 

930 CALL KEY(O,KEY,ST) 

940 IF KEY013 THEN 930 
950 GOTO 280 “ ’ 



970 CALL CLEAR 
980 CALL SCREEN(5> 

990 7-500 

IOOO CALL SOUND<T,880,3,698,8,294,10) 
1010 PRINT * 11 TAB(11) 5 "T Y P X N G" 
1020 CALL CHAR(104,"FFFFOOFFFFOOFFFF") 


1030 CALL SOUND(T,932,3,784,8,196,11) 
1040 PRINT 1 t TAB(15);"FOR" 

1050 CALL COLOR(10,16,6) 

1060 CALL COLOR(11,13*1) 

1070 CALL SOUND<T,784,3,659,8,262,10) 
1080 PRINT 11 TAB(12)|"ACCURACY- 
1090 CALL CHAR(112,"OOEOFBFEFFFFFFFF") 
llOO CALL SOUND(T,880,3,698,8,175,12) 
1110 CALL CHAR(113,"OOOOOOOOBOEOF8FE") 
1120 CALL CHAR(114,"B0E0FCFFFFFCE08"> 
1130 CALL CHAR (115, ,, FEF8E08 M > 

1140 CALL SOUND(T,698,3,587,8,233,10) 
1150 PRINT :n;:itTAB(15); M BY- 
1160 PRINT 1 TAB(13);"REGENA" 

1170 CALL CHAR(116,"FFFFFFFFFEF8E-> 

11 BO CALL SOUND(T/2,784,3,165,10) 

1190 CALL CHAR(96,"8OCOEOF0F8EOCOB"> 
1200 CALL SOUND(T/2,698,3,165,10) 

1210 CALL CHAR <97, "80C0E0F0FBFCFEFF” ) 
1220 CALL SOUND < T/2,659,3,277,10) 

1230 CALL CHAR < 90,“FFFFFFFFFFFFFFFF") 
1240 CALL CHAR<117,-FFFFFFFFFFFFFFFF”) 
1250 CALL S0UND(T/2,784,3,277,10) 

1260 CALL CHAR <99,"FFFEFCF8F0E0C08"> 
1270 CALL S0UND<T*2,698,2,587,8,147,12) 
1280 CALL HCHAR<15,7,117,7) 

1290 CALL HCHAR<16,7,117,9) 

1300 CALL HCHAR<17,7,117,7) 

1310 CALL HCHARC16,16,114) 

1320 CALL HCHAR<15,15,113> 

1330 CALL HCHAR<17,15,115) 

1340 CALL HCHAR<15,14,112) 

1350 CALL HCHAR(17,14,116) 

1360 CALL SOUND(T,466,4,165,10) 

1370 FOR XX=* IS TO 17 
1380 CALL HCHAR(XX,1,104,6) 

1390 NEXT XX 

1400 CALL SOUND<T,440,3,175,10) 

1410 CALL COLOR<2,16,1) 

1420 FOR YY=18 TO 26 STEP 2 
1430 CALL HCHAR(16,YY,42) 

1440 NEXT YY 

1450 CALL SOUND<T,698,3,440,8,294,10) 
1460 CALL HCHAR<16,20,49) 

1470 CALL HCHAR(16,29,40,2) 

1480 CALL HCHAR(16,31,37) 

1490 CALL S0UND<T,784,3,587,8,233,10) 
1500 CALL CHAR<100,"7F3F1F0F070301") 
1510 CALL CHAR<101,"OOOl03070F1F3F7F U ) 
1520 CALL SOUND(T/2,698,3,392,8,262,10) 
1530 CALL CHAR(102,”000018183C3C7EFF") 
1540 CALL SOUND(T/2,659,2,262,IO) 

1550 CALL CHAR<105,"DBDBDBDBDBDBDBDB") 
1560 CALL SOUND(4*T,698,2,440,8,175, 10) 
1570 CALL SOUND(1,44000,30) 

1580. RFTMRN _ 

1590 CALL CLEAR 
1600 CALL SCREEN(7) 

1610 CALL COLOR <2,2,1) 

1620 PRINT “PICK A TYPING CATEGORY." 
1630 PRINT 3SS n Y0U WILL SEE A WORD- 
1640 PRINT -IN THE ROCKET." 

1650 PRINT t "TYPE AND ENTER IT BEFORE 
THE TONE ENDS. M 
1660 PRINT 
1670 PRINT 
1680 PRINT 
1690 PRINT 
1700 PRINT 


M 


r« 


s"IF YOU ARE CORRECT, 
"ANOTHER TONE SOUNDS, 

:"IF YOU ARE INCORRECT." 
"YOU WILL BE BLASTED. 11 1 1 : x 
"PRESS ENTER TO CONTINUE." 
1710 CALL KEY<0,KEY,ST) 

1720 IF KEYOI3 THEN 1710 

_1 730 RETURN _ _ 

1740 CALL CLEAR 
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AC power line surges are destructive, can cost you 
money, and can’t be prevented. But you can stop 
them from reaching your sensitive electronic equip¬ 
ment with a Surge Sentry. 

Surge Sentry acts in picoseconds to dissipate up 
to a 1,000,000 W, 100/z second surge. Triggers at 
10% above nominal peak voltage. Works in parallel 
with the power line. Is easy to install for immediate 
protection. No complicated wiring or special tools 
required. 

Several different models to choose from, including 
an OEM version. Call or write today for a free brochure. 



SIIRGB 

SGM.RY 


It’ll clean up your AC 



[MIRKS 

•ENTERPRISES, ISC. 

643 South 6th Street, San Jose, CA 95112 
(408) 288-5565 


DEALER INQUIRIES INVITED 


Typing Tutor . .. from p. 81 



1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1050 
1860 
1B70 
1880 
1890 
1900 
1910 
1920 
19 

T<?40 
1950 
1960 
1970 

1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 lO 
2120 
2130 
2140 
2150 
2160 
2T7 


CALL SCREEN(12) 
CALL COLOR(1,2,12) 
FORTO 0 
CALL COLOR(I,1,12) 
NEXT 1 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


mi" CHOOSE ONE* * s 
i M 1 HOME KEYS" 

2 HOME ROW¬ 
S'- 3 TOP ROW, MIDDLE FINGER" 

4 TOP ROW, POINTER FINGER 

5 RING FINGER" 

6 LITTLE FINGER" 

7 BOTTOM ROW" 

8 END PROGRAM" i :s 


fl» 


M 


:ALL^SCREEN(5) 

FOR 1*2 TO 8 
CALL COLOR<1,2,12) 
NEXT I 


CALL COLOR 
CALL COLOR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL VCHAR 
CALL COLOR 
CALL COLOR 
[TURN 
END 


(9.1.1) 

( 10 . 1 . 1 ) 

(12,Y,98,13) 
(13,Y-l f 98,12) 
(13,Y+1,90,12) 
<14,Y-2,9Q,11) 
<14,Y+2,98,11) 
<13,Y-2,101) 
<13,Y+2,97) 
(12,Y—1,lOl) 

<12,Y+1,97) 
<11,Y,102) 

(22,Y-3,90,3) 
<22,Y+3,98,3) 
(23,Y-4,98,2) 
(23,Y+4,98,2) 
(22,Y-4,101) 
<22,Y+4,97) 
(21,Y-3,101) 
(21,Y+3,97) 
(9,7,1) 

<10,16,1) 



Tax Laws .. . from p. 56 

law as under the old, but owners of desktop size computers 
will be better off-assuming no other equipment purchases in 
the year. 

If the tax deductions won’t be available because of other 
tax deductions or business losses, computer owners will be 
able to elect to write the equipment off over a 12 year ora 
25 year period using a straight line method of depreciation. 
However, the election to use the slower method is mandatory 
for each years purchases—meaning you can’t change your 
mind after a year or two. The main reason to use a slow 
method of depreciation is to avoid the possible loss of deduc¬ 
tions during a prolonged start up period due to the existing 
time limit on offsetting losses of one year against profits of 
future years. The new law provides substantial relief in this 
area—which may make the slower depreciation method un¬ 
necessary. Previously, business losses could be carried for¬ 
ward for seven years, but the new law extends this to 15 
years—retroactive to 1976. 


Changes In Rules For Investment Tax Credit 

Computer buyers will realize a small increase in the 
amount of available investment tax credit for purchasing a 
computer. Under current law, equipment with a five year 
useful life is eligible for 2/3 of the lull 10% tax credit. Equip¬ 
ment with a five year life will now be qualified to claim the 
full 10% tax credit lor equipment that is depreciated over a 
period of five or more years. If the equipment will have a 
three year useful life (autos, trucks and certain R & D equip¬ 
ment), the tax credit will he 6% of the cost of the property 
rather than 10%. These new tax credit rules take effect in 
1981 -including property that was acquired before the law 
was passed. (It was signed on 8/1 3/81.) 

There was no specific change relative to claiming the tax 
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Now What? . .. from p. 36 

To change this algorithm to rearrange a list of numbers in 
descending order, simply change the “less than” sign in state¬ 
ment 230 to “greater than.” More efficient (and complex) 
sorts arc available for large sets of numbers, but this algorithm 
is sufficient for smaller sets of numbers. 

The alphabetizing algorithm is the same as this interchange 
sort algorithm with the list of variables changed to string 
variables. Just change ail As to A$ and AA to AA$. In a regu¬ 
lar program the INPUT and PRINT formats would be differ* 
ent from this example. 

In the inventory application, we have three variables for 
each item, room, item name, and cost. These could be read in 
as arrays and the sort routine would need to interchange all 
three items. For example, let A(I) be the cost that you are 
sorting. You would need to add: 

242 RR$=R$(I) 

244 11 $-ITEM $(I) 

252 R$(I)=R$(I+1) 

254 ITEM$(I)=ITEM$(I+I) 

262 R$(I+I)=RR$ 

264 1TEMS(I+1)=IIS 

This coding ensures that the variables associated with each 
cost arc interchanged in the same order as the costs are inter¬ 
changed. You could also combine the room number and item 
name into one string variable to be interchanged with the 
cost variable. 

9 

Income Tax 

Probably the most common use for the computer when 
helping out at income tax time is keeping track of expendi¬ 
tures in different deduction categories. You can use the same 
program idea discussed above in the inventory section, but 
with a slightly different data structure. Instead of room num¬ 
ber, you would use category (medical, interest, contributions, 
etc.). You would probably still use item and cost, and possi¬ 
bly add the date of expenditure. Your DATA statement 
would look like this: 

500 DATA 1 , “DR. PAYNE” , 25.50 , “MAY 9” 
for a medical expense of $25.50 to Dr. Payne on May 9. 

I have suggested several ideas to help you get started 
writing your own programs for your own home, business, or 
professional applications. Now you just need to DO IT! 

Recently someone asked me for a special income tax 
program-one that would indicate zero taxes be paid. 
Hmmmm. I'm still thinking about that program . 


Tax Laws . . . from p. 82 

credit on the full cost of a system that included both hard¬ 
ware and soltwarc. However, if the tax credit is claimed on 
the software because the price is combined with the hard¬ 
ware, then the buyer must depreciate the software with the 
hardware. It the software is purchased separately, and is li¬ 
censed rather than purchased, then the full software cost can 
be deducted in the year of acquisition. 

New Rules For Defining Leases 

Taxpayers and the IRS have been arguing for years about 
whether a lease is really a lease or just a method of financing 
an equipment purchase. The new tax law attempts to simpli¬ 
fy some of the complex rules that have cropped up in this 
area of controversy. Basically, the parties must clearly agree 
that the transaction is a lease and the lessee must not acquire 
ownership of the property at any time during the lease. The 
lessor must be a corporation and must have an investment of 
at least 10% that is “at risk” in the investment. Generally, 
the property must be new property. 




For the 
Intelligent 

user. 




Mini Disk (5 1/4”) 



Innovative Concepts, Inc.’s Flip ‘N T File storage 
system for flexible disks is both functional and 
attractive. The Flip ‘N’ File provides your disks 
with the protection they require. 

• Library Concept 

Easy filing, easy retrieval, ideal storage system. 

• Index Dividers 

Provide easy retrieval-adjustable tabs can be 
set to desired positions (additional dividers 
may be ordered separately). 

• Dust Free Protection 

Self contained storage units protect your disks 
from dust that can lead to loss of important 
information. 

■ Durability 

Each unit is molded from a highly durable 
plastic. 

• Unique Design 

Transparent, smoke colored, durable plastic is 
elegant in its simplicity, and enhances any 
decor. 

• Storage Capacity 

Each unit has a storage capacity of 50-60 disks. 
The unique lid design provides foreasy access 
and doubles as a carrying handle. 

Creators and Manufacturer’s of Flip ‘N’ File 
and other Fine Products. 


USE Innovative Concepts Inc 

2284 Ringwood Avenue, San Jose, California 95131 

(408) 262-6680 
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Now Available 

Simulation Games 
for the TI-99/4 

'Tl Nuclear Power Plant 
(Extended BASIC 16K) $24.95 

Run a nuclear reactor from the comfort 
of your own home. 

»Martian Lander 

(Extended BASIC 16K) $9.95 

Landing on the Martian surface with 
limited fuel is a real challenge. 

Medieval World 

(Extended BASIC 16K) $9.95 

Increase your wealth and become King 
while fighting off enemies. 

Holiday Special: All 3 for $34.95 


For 

additional 
information, 
write or call: 


Galactic Software 
P. O. Box 99345 
Cleveland, OH 44199 

Tel. (2161 241-5100 
Ext. 907/908 


SOFTWARE 

SERVICES 

TI-99/4 

CUSTOM PROGRAMMING 

• Specializing in Tutorials 
for the Elementary Grades 

• Personalized Consulting 
for the Compleat Novice 

• Down-to-Earth Prices 

For more information write: 

Pablo Diablo* 

P. O. Box 4863 
Santa Clara, CA 95054 

SOURCE 1DTCV774 
*The Legendary Evil Kiteflyer 


MICROGRADE l&ll 


★ 


Revolutionizes 
Grade Keeping 


★ 


Features : 

• Change in Entry 

• Delete an Entry 

• Alphabetize 

• Individual or Group Profile 

• Selected Listings 

• Hardcopy 

Extended BASIC Required 

MICROGRADE I (disk) $26.95 

MICROGRADE II (disk) $59.95 

(Version II requires 32K Memory Exp.) 

To Order, or For Detailed Catalog, Write: 

Charles Morreale 
105 Meadowbrook 
Venetia, PA 15367 


H 

PROGRAMM I IMG 





H I NTS 



Y REGENA 


WHO IS REGENA??? 


Twice each month, like clockwork, a peculiar event occurs. An air freight 
delivery truck rolls up to our door and drops off a mysterious parcel. Each 
time, the outside wrapper carries markings from a different country. One 
thing, however, always remainstthe same—the two-word return address: “From Regena.” 

The contents of each package are similar—manuscripts and tapes of articles and programs 
for and about theTI-99/4 computer, plus a one-line note: “Hope you can use this—Regena.” 
We've never been able to contact this mysterious programmer. Since we presume that he or 
she gets to see the magazine, it would seem logical that Regena must be a subscriber. But we 
can't be certain, as large numbers of Issues also get sent in bulk to dealers and distributors ail 
over the U. S. and abroad. 

Also, there’s the matter of the formal letter we received one day from a Zurich bank, 
with instructions to mail Regena's payment checks to a numbered Swiss account. All very 
secret and strange indeed . . . 

Here at the magazine, we’ve tried to figure it out: Why would anyone who goes to all 
this trouble to keep their identity and whereabouts such a secret be writing for a computer 
magazine? Unless, of course . . . But no, that’s the stuff that spy thrillers and James Bond 
movies are made of . . . 

Regena's manuscripts (each typed on a different machine, on paper bearing different 
watermarks) and program tapes (long strips of reel-to-reel recording tape, rolled up tightly 
and inserted into 35 mm film cans) have been thoroughly analyzed for clues. It is true, we 
have found a few, but we suspect, however, that they were deliberate “red herrings.” Perhaps 
you, our readers, have detected some clues in the many articles and programs of Regena that 
we’ve published. Or perhaps one of you has actually made contact with our mysterious pro¬ 
grammer. In any case, please send us your ideas or information. 

And Regena—if you’re reading these words—won't you please “come in from the cold ...” 


#1: Graphic String Display 

Suppose you have a variable you would like to print during a graphics 
display. CALL HCHAR or VCHAR allows you to print only one character 
at a time at a specific location. If the value to be printed contains a varia¬ 
ble number of digits, then let the computer do the work by using this rou¬ 
tine. 

10 INPUT A 
20 A$=STRS(A) 

30 FOR 1=1 TO LHN(AS) 

40 CALL HC'IIAR( 12,I+5,ASC(SKC5S(AS,l.l))) 

50 NEXT I 
60 GOTO 10 


Line 10 


Line 20 
Line 30 

Line 40 


Line 50 
Line 60 


"A” is the number you want printed and ordinarily would be 
calculated by your program. For this test program you may key 
in a trial number. 

Let A$ be the string variable of A. 

Starting with 1 go to the length of A$ (that is, the number of 
digits). 

Here is the CALL HCIIAR(x,y,c) statement. This program will 
start printing in the 12th row and 6th column. ASC finds the 
ASCII code of the digit. SLG$ is picking up the Ith digit of A$ 
one at a time. 

Increment I until you have all the digits. 

Try another number. 
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#2: Real Time Delay 

You may want a delay for a specific length of time in your program. An 
accurate way to do this is to use CALL SOUND for the number of milli¬ 
seconds you need. Use 30 for the volume level and a very high frequency 
so you won’t hear anything. For example, if you have a game in which the 
rocket is blasting off and you want a countdown for each second, use: 

FOR 1=10 TO 1 STEP -1 
CALL SOUND( 1000.44000,30) 

PRINT I 
NEXT I 

CALL SOUND( 1,44000,30) 

PRINT “BLASTOFF" 

While a SOUND is being performed, the program can be doing graphics 
or computations. As soon as another SOUND statement is encountered the 
computer waits for the previous one to be executed for its duration. The 
duration of 1 for the last SOUND statement signals the end of the previous 
second and allows the program to continue. It forces the computer to wait 
the final second before “BLASTOFF" is printed. 


#3: RND Function . . . How Fair Is RANDOM? 

The RND function is used to choose random numbers. It can be used, 
for example, to simulate the throw of dice, choosing random numbers 
from one through six. But docs one number seem to be picked more 
often than another? 

This program was run to pick a random number from 1 through 10 
ten thousand times and to count how many times each number was 
chosen. The probability for each number being chosen is 1/10, so for 
10,000 trials each number should be picked 1000 times-if RND is fair. 

10 DIM N( 10) 

20 RANDOMIZE 
30 FOR 1=1 TO 10000 
40 J=INT( iO*RND)+1 
50 N(J)=N(.!)-H 
60 NEXT I 
70 FOR 1=1 TO 10 
80 PRINT I;N(I) 

90 NEXT I 
100 END 

The results of four runs arc as follows. N is the number chosen random¬ 
ly. The numbers in the columns for each run arc the number of times N 
was chosen. 


N 

First Run 

Second Run 

Third Run 

Fourth Run 

1 

1002 

1008 

1008 

1002 

2 

993 

997 

992 

989 

3 

1036 

1035 

1007 

1019 

4 

1025 

1037 

1028 

1034 

5 

980 

984 

989 

986 

6 

1011 

1007 

1002 

1020 

7 

1005 

982 

1002 

1011 

8 

1025 

1020 

1029 

1024 

9 

966 

959 

987 

956 

10 

957 

971 

956 

959 


The distribution is fairly even and within 5 percent of 1000 for each 
number picked. The number chosen the fewest number of times was chosen 
956 times, and the highest a number was chosen was 1037. It is interesting 
to note, however, that for these four runs, the same numbers were chosen 
more often or less often in each run as in each other run, with the excep¬ 
tion of N=7 in the second run. 



**** 

TFAsteroids 

• 99/4 version of Popular 
Arcade Game 

• Finest Extended BASIC 
Game Available 

• Rated **Four Stars** By 
National Users Group 

• Four Skill Levels 

• "High Score To Date" 
Feature in Both Versions 

Cassette Version $22.95 
Diskette Version $25.95 

(NJ residents add 5% tax) 

To order or for information write : 

FFF SOFTWARE 

P. O. Box 4169 
Trenton, NJ 08610 
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BASIC COMPUTER PROGRAMS BASIC COMPUTER PROGRAMS 
FOR BUSINESS : VOL. 1 IN SCIENCE AND ENGINEERING 


By Charles D. Sternberg. 

A must for small businesses utilizing 
micros as well as for entrepreneurs, 
these two volumes provide a wealth 
of practical business applications. 
Each program is documented with a 
description of its functions and op¬ 
eration, a listing in BASIC, a sym¬ 
bol table, sample data, and one or 
more samples. 

Volume 1 contains over 35 pro¬ 
grams covering: budgets, depreci¬ 
ation, cash flow, property compari¬ 
sons, accounts payable, order entry, 
warehouse locations, inventory turn¬ 
over analysis, job routing, resource 
allocation, production scheduling, 
etc. 

volume 1, paper, % 10.95 
1980, 384 pages, 7 x 10 


By Jules H. Gilder. 

Save time and money with this col¬ 
lection of 114 ready-to-run BASIC 
programs for the hobbyist and en¬ 
gineer. There are programs to do 
such statistical operations as means, 
standard deviation averages, curve¬ 
fitting, and interpolation. There are 
programs that design antennas, fil¬ 
ters, attenuators, matching net¬ 
works, plotting, and histogram pro¬ 
grams. There is even a justified typ¬ 
ing program that can be used in 
typesetting. All programs in the 
book have been tested and are fair¬ 
ly universal; so you should have no 
difficulty running them on your 
system. You won’t find anywhere a 
more comprehensive collection of 
usable, ready-to-run BASIC pro¬ 
grams! 

paper ; $9.95 
1980, 160 pages, 6x9, ill us. 



BEAT THE ODDS: MICRO¬ 
COMPUTER SIMULATIONS OF 
CASINO GAMES 

By Hans Sagan. 

Here’s an extremely useful program¬ 
ming guide that provides realistic 
simulations of five popular Casino 
games: Trente-et-Quarante (Thirty 
and Forty), Roulette, Chemin-de- 
Fer, Craps, and Blackjack. Each of 
the five chapters has the same struc¬ 
ture. It begins with a computer run, 
displaying facets of the programs, 
followed by an explanation of the 
objectives and the physical execu¬ 
tion of the game. Acceptable bets 
and how to placethem are discussed 
and systems and/or strategies laid 
out. Finally, the computer program 
is developed and various modifica¬ 
tions of the program are detailed. 

AM programs arewritten in BASIC 
and heavily REM'd for readability 
and conversion. A comprehensive 
bibliography, a glossary of French 
gambling terms and phrases, and 
hints on the discrepancies between 
BASIC dialects are included, as well 
as a summary of maxims of proba¬ 
bility theory. 

paper, $7.95 
1980, 128 pages, 6x9 
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PRACTICAL BASIC PROGRAMS 

Edited by Lon Poole 
Here is a new collection of 40 pro¬ 
grams you can easily key In and use 
on most microcomputers. Each 
program does something useful. 
Practical BASIC Programs is espe¬ 
cially useful in small business appli¬ 
cations. It solves problems in fi¬ 
nance, management decision, math¬ 
ematics and statistics. It requires no 
prior programming knowledge. 
Each program is thoroughly docu¬ 
mented. The book contains sample 
runs, practical problems, BASIC 
source listings, and an easy to fol¬ 
low narrative to help you realize 
the potential uses of each program. 
This book is a valuable reference 
for anyone who needs a wide range 
of useful programs: Income averag¬ 
ing, present value of a tax shield, 
lease/buy decision, financial state¬ 
ment ratio analysis, checkbook re¬ 
conciliation, home budgeting, non¬ 
linear breakeven analysis, Program 
Evaluation and Review Technique 
(PERT), statistics, data forecasting 
divergence, musical transposition, 
Bayesian decision analysis, etc. 

paper 15.99 
1980, 200 pages, 8Y? x 11 


GAME PLAYING WITH BASIC 

By Donald D. Spencer. 

Enjoy the challenge of competition 
with your computer. Amuse your¬ 
self with such games and puzzles as 
3-D Tic-tac-toe, Nim, Roulette, Ma¬ 
gic Squares, the 15 Puzzle, Baccarat, 
Knight’s Magic Tour, and many 
others. The writing is nontechnical, 
allowing almost anyone to under¬ 
stand computerized game playing. 
The book includes the rules of each 
game, how each game works, illus¬ 
trative flowcharts, diagrams, and 
the output produced by each pro¬ 
gram. The last chapter contains 26 
games for reader solution. 

paper , $9.55 
1977, 176 pages, 6x9, ill us. 


BASIC COMPUTER PROGRAMS 
FOR THE HOME 

By Charles D. Sternberg. 

An invaluable book containing over 
75 practical home application pro¬ 
grams that will be helpful to the 
novice or experienced owner in in¬ 
creasing the usefulness of any home 
computer. Each program is docu¬ 
mented with a description, of its 
functions and operation, a listing In 
BASIC, a symbol table, sample da¬ 
ta, and one or more samples. Pro¬ 
grams Included are: Home Financial 
Programs; Automobile Related Pro¬ 
grams; Kitchen Helpmates; Schedul¬ 
ing Programs for Home Use; List 
Programs for Every Purpose; Miscel¬ 
laneous Programs for the Home; 
Tutorial Programs for Home Use; 
Conversion Program;and Hobbyist's 
Diaries. 

paper, $9.95 
1979 , 336 pages, 7 x 10 



MINDSTORMS: CHILDREN, 
COMPUTERS AND POWERFUL 
IDEAS 

By Seymour Papert 
The definitive work on the philoso¬ 
phy behind LOGO. Excerpted in 
the May/June issue of this magazine. 

Hardcover, $12.95 
1980, 230 pages, 6x9 
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BEGINNER'S GUIDE FOR THE INTRODUCTION TO PASCAL 
UCSD PASCAL SYSTEM (INCLUDING UCSD PASCAL) 


By Kenneth Bowles 
This highly Informat ive book is writ¬ 
ten by the originator of the UCSD 
Pascal System. It is designed as an 
orientation guide for learning to use 
the UCSD Pascal System, and fea¬ 
tures tutorial examples of program¬ 
ming tasks in the form of self-study 
quiz programs. Once familiar with 
the system you will find the guide 
an invaluable reference tool for 
creating advanced applications. 

paper, $11,95 
1980, 204 pages f 6x9 


Increase Your 
Knowledge. 
Read A Book 


Today ! 


INTRODUCTION TO Tl BASIC 

By D. Inman, R. Zamora, 
and R. Albrecht. 

This comprehensive work will teach 
you all about computers and BASIC 
for use with the Texas Instruments 
Home Computer. Even if you’ve 
never worked with a computer, you 
can now teach yourself how to use, 
program and enjoy the Tl Home 
Computer with this entertaining, 
and easy-to-read work. The authors 
have carefully constructed this in¬ 
troduction so that you will soon be 
writing BASIC programs and ex¬ 
ploiting all ofUhe excellent features 
of the Tl machines. Its 14 chapters 
and Appendices cover all of the es¬ 
sential programming statements and 
machine features. 

paper, $10.95 
1980, 320 pages, 7x10 


By Rodnay Zaks 

This is the first book on Pascal that 
can be used by persons who have 
never programmed before, but 
more generally it is a simple and 
comprehensive introduction to 
standard and UCSD Pascal for any¬ 
one-beginner to experienced pro¬ 
grammer—who wants to learn the 
language rapidly. The logical pro¬ 
gression and graduated exercises— 
designed to provide practice as well 
as test skill and comprehension- 
enable the reader to begin writing 
simple programs almost immediate¬ 
ly. This book presents all concepts 
and techniques in a clear and sim¬ 
ple style, making it accessible to 
beginners and useful to experienced 
programmers. All Pascal features 
are covered In detail, from basic 
definitions to complex data struc¬ 
tures. An extensive appendix section 
presents a listing of all symbols, 
keywords and rules of syntax for 
programming in Pascal, providing a 
concise summary and important 
reference tool, 

paper, $14.95 
1981, 440 pages, 7x9 
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HOME COMPUTERS CAN MAKE 
YOU RICH 

By Joe Weisbecker. 

Here's a valuable text for every 
home computer owner and non- 
owner interested in spare-time in¬ 
come opportunities. You’ll be in¬ 
troduced to the microcomputer in¬ 
dustry, and the types of people in¬ 
volved in it. You’ll find out how to 
learn more about this new industry. 
Discussed are basic principles of 
making money, freelance writing, 
programming, consulting, inventing, 
computer-made products, investing, 
and much more. 

CONTENTS: The Microcomputer 
Industry. What you Need to Know 
About Making Money. Resources 
You Can Use. Choosing Your Hard¬ 
ware. Writing for Money. Creating 
and Selling Programs. Services for 
Sale. Use Your Imagination. Invent 
Your Way to Success. Making Your 
Money Grow. Working at Home. 

paper, $6.50 
1980, 128 pages, 6x9 





AN INTRODUCTION TO MICRO¬ 
COMPUTERS - VOLUME 1 - 
BASIC CONCEPTS 

By Adam Osborne 
Using concepts that are common to 
ail microprocessor systems, Volume 
1 develops a detailed picture of 
what a microcomputer can do, how 
it does what it does, and how the 
capabilities of microcomputers can 
best be applied. Basic Concepts pre¬ 
sents the fundamental logic frame¬ 
work upon which microcomputer 
systems are built, so that the reader 
can evaluate the applicability of 
microcomputers to any practical 
problem. This new revised edition 
incorporates all recent microproces¬ 
sor developments. Concepts are dis¬ 
cussed in terms of modern hardware 
configurations, and examples of 
common applications are drawn 
from today's most popular devices. 
For example, the logic instructions 
and programming concepts of the 
new 16-bit microprocessors are dis¬ 
cussed in detail, and current logic 
distribution configurations are used 
throughout the text with numerous 
illustrations and examples. Program¬ 
ming mnemonics conform to the 
newly proposed IEEE standard. 
This is the first book in print to use 
them. 

paper, $12.99 
1980, 320 pages, 7x9 

PROGRAMMING BASIC WITH 
THE Tl HOME COMPUTER 

By Herbert D. Peckham. 

A tutorial guide that helps you 
learn T I BASIC in a friendly, relaxed 
manner. It goes beyond Beginner's 
BASIC furnished with the T 1-99/4, 
and introduces the full range of Tl 
BASIC features including color 
graphics and sound. Its 11 chapters 
are written in a complete-the-blanks, 
programmed instruction format. 

paper, $10.95 
1979, 306 pages, 6x9 


Use the order card in the back of this magazine, or itemize your order on a separate piece of paper and mail to: 
99'er Magazine/Book Dept., 2715 Terrace View Drive, Eugene, OR 97405. Be sure to include check or 
detailed credit card information. No. C.O.D. orders accepted. Add $1.50 postage & handling for 
1 book, $2.00 for 2 books, or $2.50 for 3 or more books. Please allow 4-6 weeks for delivery. 

If there is a question regarding your order please write to Customer Service at the above address. 

PRICES SUBJECT TO CHANGE WITHOUT NOTICE. 
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Goleta, CA 


Springfield, MO 

A full-line Texas I instruments T I- 


New York, NY 


Salem, OR 


See our complete line of personal 
and business computers including: 
Texas Instruments, Atari, Apple, 
Altos, Data General. Also All ac¬ 
cessories, software and supplies. 
Plus all that’s new in personal 
electronics. Personal Electro¬ 
nics, 5674 Calle Real Center, 
Goleta, CA 93117, (805) 
967-5322. 


Los Angeles, CA 

A software/systems house primari¬ 
ly engaged in the sale of software 
for TI and Polymorphic com¬ 
puters. Hardware sales are usually 
included in a combined turnkey 
package. Prospective customers are 
seen by prior telephone appoint¬ 
ment only. AAAA Discount 
Computer How’s, 13022 Pso- 
mas Way, Los Angeles, CA 
90066,(213) 391-8777. 


Waterloo, IA 

Texas Instruments Large selection 
of Accessories and Software for 
99/4 at Dhein's True Value, 7 W. 
Airline Hwy, Waterloo, IA 50701. 
Sale prices at store are also given 
on mail orders. Write for price list. 
Dhein's True Value, 7 W. Air¬ 
line Highway, Waterloo, 1A 
50701,(319) 232-6225. 


Evansville, IN 

Independent Register 2414 N. 
Governor (across from Town Cen¬ 
ter Mall) is the tri-state location 
for T1-99/4 Hardware/Software, 
Supplies etc. We supply the tri¬ 
state with popular magazines and 
software for other units. Open 
Mon • sat. 8-5. Independent 
Register, 2414 N. Governor, 
Evansville, IN 4771 1. (812) 
424-8246. 


Lexington, KY 

A complete line Texas Instruments 
dealer. We stock all Texas Instru¬ 
ments calculators and accessories, 
learning aids, home computer pro- 
ducts, accessories, peripherals and 
software. Atari computers and 
Hewlett Packard calculators in 
stock. CBM Incorporated, 198 
Moore Drive, Lexington, KY 
40503,(606) 276-1519. 


99/4A Computer dealer—Large 
selection of peripherals and soft¬ 
ware—Custom programming for 
the TI-99/4A—Complete price list 
on request. G & G Data Pro¬ 
cessing, 209 E. Walnut, Spring- 
field, MO 65806, (417) 869- 
1489. 

Marlow Heights, MD 

Specializing in Texas Instruments 
99/4 computer and accessories. 
We have a large selection of Soft¬ 
ware for the T1-99/4, TRS-80, 
Apple, and Atari. We also stock 
Lobo Drives and Epson Printers. 
Wills Computer Store, 4410 
Stamp Road, Marlow Heights, 
MD 20031,(301) 4234525. 


Minneapolis, MN 

Authorized Texas Instruments 
T1-99/4 computer dealer offering 
you the best prices in the U.S.A. 
on the computer and ail peripher¬ 
als. Also, a wide variety of printers. 
CRT’s available at lowest prices. 
No collect calls, please. Calcu- 

lators, Inc., 7409 Fremont 
Avenue South, Minneapolis, 
MN 55423,(612) 866-8908. 


Minneapolis, MN 

Authorized TI-99/4A & Scott, 
Foresman dealer for educational 
electronic materials in the 5-state 
area. We have qualified educators 
to help with your educational mi¬ 
crocomputer needs. We are also a 
full sales, service and leasing organ- 
ization. Tele-Terminals, Inc., 
7216 Boone Ave. North, 
Brooklyn Park, MN 5 5428. 
(612) 535-5330. 


Great Falls, MT 

We’ve got the best prices because 
we want your business. Complete 
line of TI products and Epson 
printers. Monthly SALES on all 
items. Call now or write: IRCA 
Inc., N.E. Bypass Hwy. 87, 
P. O. Box 6125, Great Falls, 
MT 59406,(406) 727-8835. 


Call a Dealer Today 


"Your Personal Guide to Personal 
Technology.’ 1 We carry the com¬ 
plete TI-99/4 System. For demon¬ 
stration of tne TI-99/4 at home, 
school or office, or more informa¬ 
tion call Next Tech, Inc. today. 

Next Tech, Inc., 350 Fifth 
Avenue, Suite 3308 New 
York, NY 10001, (212) 792- 
8768. 


Olean, NY 

Texas Instruments TI-99/4 Home 
Computer Systems, software, 
hardware, and accessories at 
discount prices. APF-lmagination 
Machine. Video Sales and Service. 

BLOISE Electronics, 1 14 Cen¬ 
ter Street, Olean, NY 14760. 
(716) 372-8063. 


Rye, NY 

Wide assortment of Tl software, 
hardware and accessories all at 
discount prices. Also authorized 
Scott, Foresman dealer. Write or 
phone for nine-page catalog with 
hundreds of items. Microcom¬ 
puters Corporation, P.O.Box 
191, Rye, NY 10580, (914) 
967-8370. 


Dayton, OH 

The only full line Tl distributor 
stocking Semiconductors, DSG 
(700-800 OMNI Products) TM990 
Microcomputer Boards, Calcula¬ 
tors, complete in depth inventory 
including 99/4 Products-Software. 
Ohio 1-800-762-9510. Surround- 
ingarea 1-800-543-9550. Will ship. 

call us. Esco Inc., P. O- Box 
1166, 221 Crane St. Dayton, 
OH 45403, (513) 226-1 133 


Portland, OR 

Friendly pre-programmed com¬ 
puting systems for the home & of¬ 
fice. Featuring Texas Instruments, 
Hewlett Packard, and Xerox 
equipment. With the T1-99, we of¬ 
fer discounted “Starter Packages" 
of all configurations. 24-Hour 
Home Computer Hotline. The 

Electronic Cottage, 1836 NW 
Overton, Portland.OR 97209, 
(503) 224-9282. 


J. Harvey’s Video Clubhouse 
VCR’s, Tapes, Home Computers 
TI-99/4, Atari 400, 800. 

J. Harvey’s Video Clubhouse 
3295 Triangle Drive #142, 
Salem, OR 97302, (503) 
581-1003. 


Electric City, WA 

Texas Instruments 99/4 Home 
Computer Systems — Wholesale 
prices and not on just the main 
console! Also good prices on 
Epson printers and Televideo 
Terminals. For price list, write to: 

Komputar Works, P.O.Box 
483, Electric City,W A 99123, 
(509) 633-2653. 


Green Bay, Wl 

We specialize in the Texas Instru¬ 
ments 99/4 computer. We handle 
a complete accessory line for it, at 
discount prices. Custom program¬ 
ming for the 99/4 also done. Write 
for a complete price list. The 
Micro House, 527 Simonet 
Street, Green Bay, WI 54301, 
(414) 432-2871. 


Washington, D. C. 

Marinchip systems 9900 and Z800 
dealer. Networking software and 
CPM interface. Technico experi¬ 
ence in-house. Epson printers, tele¬ 
video CRT's, cables, Tl 99/X to 
S-100 bus card available system 
customization. Hard disk, tape. 
Any AMP connectors. Interface 

Technology, P O Box 745, 
College Park, MD 20740, 
(301) 490-3608. 



Listings here are $30 per issue; 
minimum insertion, 3 issues 
(6 months). Prepayment of $90 
required. Ads include 35 words 
describing products and services, 
plus company name, address and 
phone. (No merchandise prices, 
please.) Call Pat at 503-485-8796 
or write 99’er Magazine, Ad De¬ 
partment, 2715 Terrace View 
Drive, Eugene, OR 97405. 


Call a Dealer Today 


Call a Dealer Today 


ATTENTION 
Tl DEALERS 


Did You Know That You Can Be Reimbursed For Advertising 
Texas Instruments Products In This Magazine? 

Call or Write 
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99'er Magazine/Ad. Dept. 

2715 Terrace View Drive, Eugene, OR 97405 

Tel. (503) 485-8796 
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Speak & Spell 
For grades 1-8 
Helps leach basic 
spelling skills' 


oooo 

oooo 

oooo 
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Speak & Math 
For grades 1-6 
Helps leach basic 
math skills. 


Talking in class 
never sounded so good 


With these speaking learning aids, 
it's the sound of learning.They aren't 
toys. They were developed, with 
the help of educational experts, to 
make learning fun by using sight and 
sound together. 

And that makes them an excellent 
way for kids to get extra practice 
in the basics: 

But the best side of our speaking 
learning aids is this: Kids think they're 
a blast. You know they're an education. 

And that's a sound reason to find 
out more. Contact Customer Relations, 
RO. Box 53, Lubbock, Texas 79408. 

Texas Instruments 






INCOKPORAJ I D 


Speak & Read 
For grades 1-3 
Helps teach basic 
roading skills: 


a** 


New! Touch & Tell 
Forages 2-5 
Helps teach basic 
pre-school concepts: 


Texas Instruments 
makes learning what 


it should be...Fun. 


Optional plug-in modules alkiw advancement. 

(©Texas Insliumenls, Incorporated 






























SfgP^' Partitions: 3 

Color: Smoke and Sand 
1 Package MINI-FLEX Guides 
Shipping Weight: 3 Lbs./1.35 Kg. 


FAST and EASY RETRIEVAL 
of the DISKETTE 


YOU NEED . . . 

. . .While Guarding Against Data 
Dropout Caused By Improper 
Storage and Handling. 

Mint-Flex Partition Design 


STANDARD 
CASE MINSK SOX 


IMPROVED NO-WARP 
EASY ACCESS DESIGN 


7*. 

19 7 em 


0 * 

?4«cm 


The MINI-FLEX is styled with low sides and snag-proof 
edges., .making removal and replacement of diskettes 
easy and safe. 

Spacious enough to store up to 50 mini-diskettes in their 
protective envelopes as recommended by all media 
manufacturers, yet small enough to conserve work space. 
The base nests in the lid for a compact configuration in use 


MINI-FLEX DISKETTE FILE 

a List Price: $29.95 

>T Special Price $24.95 


Add $2.50 shipping and handling. Use the hind-in card in (lie 
back of tlie magazine for your convenience in ordering. Tele¬ 
phone orders accepted if charged to credit cards. 


FINALLY - 

Single-Sheet 
& Roll-Feed 

For Your 

EPSON MX-80 • 

Printer 


Now You Can: 

Fill In Purchase Orders, Invoices, Statements and Other 
Business Forms One-At-A-Time, As Needed-Without 
Having to Wrestle Cartons of Pin-Feed Supplies In & Out 
of Your Printer. 


A Cost-Effective Upgrade That 
EPSON MX-80 Owners 
Can’t Afford To Be Without! 


Increased Printer Versatility 
Cheaper Paper Supplies 
Less Paper Wastage 
Large Time Savings 
Quickly Pays For Itself 


Install It Yourself In Less Than 45 Minutes With Only A 
Small Screwdriver & Penknife. 

Use Your Own Letterheads for Business Correspondence 
or Colored Paper for Graphics Designs, Posters, and 
Dii^ct Mail Flyers. 

Use Cheap Roll Paper for Most of Your Printing Needs 
and Forget About Printing On or Over the Perforations. 


Each Kit Comes Complete With: 

2 Acrylic Drive Wheels {With Rubber Friction Ringsl Machined 
to Exacting Tolerances (+ ,0005. - 0.0 inches) for a Snug Fit 
1 Weighted Pinch Roller Assembly 
1 Roll Paper Holder 


Special Price: 

ONLY $49.95 

Add S2.00 for Shipping & Handling. Use the 
bind-in card in the back of the Magazine for 
your convenience in ordering. Telephone orders 
accepted if charged to credit cards. 


TJA 


INNOVATIVE PRODUCTS 
FOR TMSWOO-BASED 
PERSONAL COMPUTING 


P.O. Box 5537 
Eugene, Oregon 97405 
Tel. (503) 485-8796 






























































Dear Sir: 

In your July/August issue a reader de¬ 
scribed a very good idea; a "general purpose" 
load program which could be used both to 
display a menu of all programs on a disk and 
to allow program selection from the menu. 
While the program he provided did the first 
task, it could not do the second because Tl 
Extended BASIC does not allow substitu¬ 
tion of literals for device-filenames in the 
RUN statement. 

But there is a way around the problem. 
A program is represented in memory begin¬ 
ning at location -1 (i.e., -1, -2, -3, etc.). 
Using the PEEK subroutine one can examine 
the contents of each memory location, and 
since program lines are represented in 
condensed code, it is an easy matter to 
determine the location at which the RUN 
"DSKx.F ILENAME" statement should be. 
User selected values for x and FILENAME 
can then be "poked" in using the LOAD 
subroutine. [All this assumes the user has 
the 32K Memory Expansion—Ed.) 

In the program below, the final statement 
is a REMark followed by several asterisks. 
The preceeding LOAD statements literally 
replace this REMark statement with a RUN 
"DSKx.F I LENAME" statement. The pro¬ 
gram then comes upon that statement and 
executes it as if it had been there from the 
beginning. Thus the procedure has the same 
effect as substitution of literals for device¬ 
filenames. 

Should the reader wish to try the pro¬ 
gram, the following instructions must be 
followed carefully: 

1-Make sure the RAM expansion. Ex¬ 
tended BASIC, and disk drive(s) are proper¬ 
ly connected and turned on in the proper 
order. 

2. Enter the program exactly as shown in¬ 
cluding all REM statements. If any changes 
are made, addresses for LOAD statements 
will not be valid and the program will not 
work. 

3. After the program has been entered and 
corrected, it is essential to insure that all 
statements are in proper sequence. This is 
done by saving the program with the MERGE 
option (e.g., SAVE DSK1 .X,MERGE), enter¬ 
ing the command NEW, and entering the 
MERGE command (e.g., MERGE DSK1.X). 


r* “ 'W«| 


BY C.fl.EHNII 

b option base i 

7 01* R**<20) 

o :**ec ** 

b CALL CLCAP 

10 DtVLAY AT<12,4)ERAS* HCU "OISK7 <1-3>I 1*| 

11 ALL KPT AT U2. B1ZC <-l> VALIDATE* 123->»0« 

12 OPEN •H-DK-l.ONr-.MW .RELATIVE, INTSWWL 

13 INPUT •lsN»,A,A,A 

14 DISPLAY AT<1,8> 

19 1-0 

16 POP 1-1 TO 20 

17 l*X*t 

18 IF 1>177 THEN 42 
IT INPUT BlaPE.A.B.B 

20 IF L*NIR8I*0 THEN 26 

21 IF AM<A><>3 THEN IT 

22 DISPLAY AT<X*2,10>lUSING BiXj 

23 DISPLAY AT(l*2«14)|P*| 

24 PB«<n*PT 
29 NEXT X 

24 DISPLAY AT(X-2.lO)JUSINA B«X| 

27 DISPLAY AT<X*2, 14) l "TEPNINATE* j 

29 DISPLAY AT(X*3,I4>.-CHOICE? 1*1 
2T ACCEPT AT <X«3«22>8X2£<—2)VALIDATE(DIGIT>iK 

30 IP K-X THE* 62 

31 IF K< 1 OP 020 THEN 28 

32 IF LKN<PS4(JO)-0 T>*N 28 

33 CLOSE 41 

34 CALL CL2AP 
39 RE* 

36 PEN t MQKCY POKEY « 

37 pen i by jo»*4 clulom t 


3T CALL INIT 

40 FPT-*D9K-|tD46-. 1 

41 A—TT1 

42 LM-£NCPP4> 

43 IP L>19 THEN 48 

44 FOP 1-1 TO 13-L 
49 CALL LOAD(A.O) 

1 

:xt i 


<K> 


47 


48 FOP I-L TO l STEP -l 
4T »-A8C<8C9«(P**,Z,l>> 

90 CALL LOAD<A,■ > 

91 A-A-X 
32 NEXT I 

93 CALL LOAOCA.L) 

39 CALL L0AD<A,1TT) 

36 A-A-l 

97 CALL L0A0<A,16T> 

38 A-A-l 
3T L-L+4 

40 CALL LOAD(A,L) 

61 PCM BIBIISISISf Kltt 

62 STOP 


4. If all of the above steps have been done 
correctly, the program in memory can be 
saved (SAVE DSK1.LOAD) and subsequent¬ 
ly used and copied like any other program. 
When saved as .LOAD on any disk which 
contains programs, it will provide a menu of 
those programs upon entering Extended 
BASIC, and will allow the user to select a 
program by pressing a single key. 

John Clulow 
Perrysberg, OH 


Dear Sir: 

I have received your magazine and find it 
to be an absolute masterpiece in the gallery 
of specialized periodicals. After spending a 
small fortune subscribing to computer maga¬ 
zines trying to find some information about 
the 99/4 and/or software for it, the invest¬ 
ment has finally realized some fantastic 
gains with your magazine. Unfortunately, 
there will have to be some dumping of the 
turkeys. Fortunately, I shall have the 99'er 
to sustain my appreciation of the 99/4 and 
its capabilities. 

My little 99/4 system has been a great 
workhorse for me in many different respects, 
and I am very happy to have it. Since I spent 
a long time looking at different systems and 
prices and software and etc., the decision 
that was made over a year ago for me to buy 
the 99/4 is still the best I could have made. 
The surprising thing to me is that I have 
seen nothing yet which can adequately com¬ 
pare with the 99/4. 

Robert L. Nelson 
Suring, Wl 


Dear Sir: 

REF: 99'er, Vol 1, No. 1, page 83—Personal 
Computing to Aid . . . 

If John Hopkins has another "SEARCH" 
next year, I hope you will devote more 
space to this outstanding program. 

Thanks to Tl and some other fine folks, I 
was able to enter for The National Paraplegia 
Foundation and feel honored to be asked to 
demonstrate our modified 99/4 and Para- 
care programs at NASA. There are no losers 
in this kind of contest. 

As a beginner, I appreciate getting started 
with your magazine. It should be very help¬ 
ful to me. 

Jack Kishpaugh 
Fort Worth, TX 


It's good to hear about the work you're do¬ 
ing, Jack. We will shortly be launching a 
new column, Persona / Computing for the 
Handicapped, and are presently soliciting 
manuscripts from interested 99'ers. 


Dear Sir: 

The program included with the article 
"Electronic Home Secretary" is very handy 
indeed. But the information block tnat 
shows the telephone frequencies is particu¬ 
larly useful. Anyone who uses one of the 
modern banking services generally known as 
"bank-by-phone" has been through the hassle 
of pushing all the touch-tone buttons on 
their phone to get the bank's computer to 
understand what you want to pay. (I need 
about 60 depressions to make a single trans¬ 
fer of cash from savings to checking.) Mr. 
Subbaiah's information can speed this up 
considerably. 

By making a small array to hold the fre¬ 
quencies, a person can then develop a 
short program of inputs which can be inter¬ 
preted by VAL(SEG$ . . . ) to do the "but¬ 
ton pushing" for them (including making 
the phone call). Just think how creditors 
will thank Mr. Subbaiah for his article since 
people will find it so easy to make their pay¬ 
ments by phone. 

A word of caution however! I suggest the 
user test the program well before relying on 
it at the last moment of payment. The pro¬ 
gram would most likely have to be indivi¬ 
dually tailored to the user in order to be effi¬ 
cient since different banks use different 
keys for different functions. 

We thank Mr. Subbaiah for the very useful 
information and hope to see more of the 
same in your fine magazine. 

Jim Schwaller 
Cincinnati, OH 

Dear Sir: 

The August 81 issue of Interface Age con¬ 
tains a "benchmark" program, and the times 
for a number of machines including the 
99/4. I thought it* would be interesting to 
try the program in Extended BASIC. The 
time for Tl BASIC is listed as 2479 sec, 
which I verified. The time for Tl Extended 
BASIC turned out to be 3407 seconds, or 
37.43 percent slower \ 

The news is not all bad, though, because I 
tried the program again after inserting the 
commands: CALL INIT : : CALL LOAD 
(- 31878,0) which disable the sprites if one 
has Memory Expansion. Thus configured, 
the program took 1853 seconds, which is 
25.25 percent faster than Tl BASIC, and 
45.61 percent faster than unmodified Tl 
Extended BASIC. 

I think this information is interesting 
enough to be included somewhere in your 
magazine. I am naturally curious about how 
the LOAD command works, and whether 
there are other interesting modifications 
that can be similarly made. Tl included the 
above in their fClay 81 newsletter. Would it 
be possible for you to find out more, and 
tell us the story? 

I enjoyed the first issue of 99'er. Good 
luck. 

Roger B. Kirchner 
Northfield, MN 

Keep your eye on our Advanced Program¬ 
ming Techniques column r Roger. 


PLEASE DOWT FORGET TO 
RETURN THE QUESTIONNAIRE 
ON THE FRONT BIND-IN CARD, 


Continued on p. 93 
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Your f^rLU'Ml I mh »». *«« World o' |nr»rwM<ffc» 


are Still Available . . . 

. . . but quantities are limited 

so ORDER TODAY! 

Each Only $3.95 postpaid 

ISSUE #1 (Partial Contents): 

• How To Write Your Own Programs *An External Keyboard • Epson MX-80 & Printer Graphics 
•Space & Combat Games in Tl BASIC •Text-to-Speech •TMS9900 Machine & Assembly Language 

• Planning & Forecasting in BASIC *UCSD Pascal & Third-Party Development Systems *Power Line 
Problems *LOGO & Lamplighter »Music Text Editor *TM990/189 University Module •Homework 
Helper: Fractions •Computer Chess *and much, much more . . . 

ISSUE #2 (Partial Contents): 

•Information Utilities and the Electronic Cottage *Data Communications •Marinchip Systems M9900 
•Software Conversion: TRS-80 to Tl BASIC •Small Investor and the TI-99/4 *The Electronic Home 
Secretary •Typing Tutor *TI LOGO and the Space Shuttle "Civil Engineering Fundamentals *Catch 
& Match Games in BASIC & Extended BASIC "Bombs Away on the University Module • Interfacing a 
Digitizer *and much, much more . . . 
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Games & Simulations Galore 

Micro Bartender 
Bit-Plot Printer Graphics 
Computer Choreography 
Speech Concatenation 

Electrical Engineering Fundamentals 
99'er Matrix Cruncher 

Rule of 78 

Interfacing with Teletypes 
HI-RES Plots & Graphs 
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Letters... from p. 91 


Programming Differences Between the T1-99/4 & TI-99/4(A) 

For programs to be compatible with both console models, a few programming 
conventions must be observed: First, avoid use of the SHIFT and ENTER keys 
as fire buttons. Instead, use keys such as “Q” and “P (as in Space War), or F 

and “H” (as in Dogfight). . , 

One other major difference concerns the “X” and M keys-typically used 

as directional arrows, indicating a straight downward movement: When you spec¬ 
ify a key-unit of 1 or 2 (for a split keyboard scan) in the CALL KEY subroutine, 
the computer does not return a true 0 (zero) in the return-variable when X is 
pressed on keyboard 1 or M on keyboard 2. Therefore, if your program checks 
to see whether the return-variable equals zero, the computer returns an answer 
of false, and you won’t be able to achieve straight-down movement To illustrate 
a way around this problem, see lines 2380 and 2620 in Space War. Notice that if 
instead of coding these lines 

2380 IF K1 = 0 THEN 450 

9 

2620 IF K = 0 THEN 2790 

to test for the zero return-variable (which wouldn’t work on the TI-99/4A), you 
add a 1 to both sides and test for the integer, 

2380 IF K1 + 1 = 1 THEN 450 
2620 IF K+l = 1 THEN 2790 

the logical switch operation is the same, and the new coding will work on both 

the T1-99/4 and TI -99/4 A. „ ... 

Since 99'er Magazine's goal is to publish programs that will run as is on 

both models, we request that when readers send us listings for possible publica¬ 
tion, they should implement their coding accordingly. We’d also appreciate it it 
anyone who “RUNs” across any other differences between the two machines 
inform us immediately so that the information may be disseminated. 


Dear Sir: 

Subject :TI-99/4 Software Print Restrictions 
Most of the software as designed by Tl has 
provisions for other optional printers to be 

utilized with the 99/4 hardware and their 
software. This software, whether in program 
form of cassette, disk, or command module 
all contains print instructions designed for 
the Tl Thermal Printer. 

Those of us 99/4 Owners with other prin¬ 
ters, I'm sure, would find it advantageous to 
fully utilize the 80 to 132 character per line 
capability of the particular printer. At pre¬ 
sent, these Tl software programs limit the 
printer to 32 characters per line. 

Personal Record Keeping and the Personal 
Checking Account programs are excellent 
examples. Instead of one complete line of 
data under various topic headings in the 80 
or 132 character line, the result is perhaps 
two half-page lines of data to comply with 
the TI Thermal Printer's capacity restrictions. 

It would be interesting to have a special 
program to resolve this situation, i.e., 3 
subroutine that user's could blend into their 
Tl cassette tape and disk software. 

John O. K. Jacobsen 
Eugene, OR 


Continued on p. 94 
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Letters . .. from p. 93 


Dear Sir: 

I am very impressed at the quality of the 
99'er. It is everything a 99/4 owner coutd 
ask for. Actually, it makes all other personal 
computer magazines obsolete, since they 
only write about Apple and Radio Shack. 

I've loaded in two of "Kelley's Korner" 
games. Besides being enjoyable they have an 
educational quality. I'm new to Tl BASIC 
and looking at someone else's program is 
very helpful. James Dugan's article "Using 
Flow-Charts" was also very helpful. 

I'm looking forward to the next issue 
Thanks for publishing a magazine just for 
me and my Tl 99/4 Home Computer. 

Fred Werginz 
College Park. GA 


PLEASE DONT FORGET TO 
RETURN THE QUESTIONNAIRE 
ON THE FRONT BIND-IN CARD. 


Dear Sir: 

I am very satisfied with interesting infor¬ 
mation, soft- and hardware news, descrip 
tions ... in 99'er Magazine. I can not do 
without any next issue 99’er Magazine get 
lost. So please give Magazine into enough 
strong envelope, because I am far from 
USA. I am received now first two issues of 
99'er Magazine. Thank you! 

I wish you much success in your exertions 
for a good 99'er Magazine 1 And Thank You! 

Excuse me for my broken English, please! 

Likeb Stane 
Ljubljana, Yugoslavia 


A Micro “Extended” Editorial 

Although both of the Kelley's Korner games in this issue are very similar in 
design, the choice of programming languages creates games that are vastly differ¬ 
ent in implementation and performance. This difference clearly illustrates the 
limits of Tl BASIC, and additional facilities of Extended BASIC that a program¬ 
mer can use to push far beyond these limits. 

For example, when a missile is shot in Space War, all action stops until the 
missile either hits or passes off the screen. Since Dogfight utilizes the sprites of 
Extended BASIC, bullets can be shot simultaneously by each player without in¬ 
terfering with the independent motion of each plane. The speed of the moving 
sprites arc also quite a bit faster than the HCHAR and VCHAR CALLs of regular 
BASIC. All this adds up to a more realistic, “arcade-like" video game for the Ex¬ 
tended BASIC implementation. 

The other major difference lies in the amount of coding required for each 
game (which translates into a significant time difference for readers who key in 
these programs): Space War requires over 600 lines of code, whereas Dogfight 
needs less than 200 lines. There arc several reasons for this great disparity: (I) In 
Extended BASIC, sprites can be defined as four characters, and so one statement 
in this language would take four in BASIC; (2) Checking for hits also requires 
less statements in Extended BASIC (due to the coincidence subroutines); (31 
Whereas the autowrapping characteristic of sprites are employed naturally in 
Dogfight, coding Space War in BASIC required the programmer to force the 
wrap and to check for it on each move; (4) And tinally, additional coding isi 
saved by the complex IF-THEN-ELSE statements that Dogfight is able to take 
advantage of. 

All this is not to say that Space War is a bad program. On the contrary, it isi 
relatively fast, requires quite a bit of strategy and skill, and is a lot of fun to 
play. Thie purpose of this brief analysis was to point out to many of our readers 
—even the non-programmers—who don't yet have the Extended BASIC Com¬ 
mand Module, that this programming language can, in fact, really enhance the 
enjoyment received from the computer. And as more of our readers add this 
capability, 99’er Magazine will be able to publish more original software in Ex¬ 
tended BASIC-programs that take up significantly less space in the mag azine , 
and so will allow us to include more programs for your enjoyment. 


MIIMDSTORMS 

THE DEFINITIVE BOOK ON LOC 


Get Your Copy 
TODAY! 

See 99’er BOOKSTORE 
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Only $10.95 each; or 3 for $28.00 

Add $2.00 shipping and handling for the first album; 75c for each 
additional album. Use the bind-in card in the back of the magazine 
for your convenience in ordering. Telephone orders accepted if 
charged to credit cards. 


High - Quality BASF Tape in a 5-Screw 
Cassette Housing for Data Integrity 

Secure Storage & Quick Convenient Retrieval 
with Protective File Album 
8 Special 50-Foot Cassettes — Ideal for 
Building Up Your 99'er Program Library 

Economical As It Is Functional 


Cassette Compatibility At Last! 

If The T1-99/4 Will Not Control Your Cassette Recorder 
Through Its Remote Jack, We Have The Solution For You . . . 


TM 


The TI-SETTE Adapter 


Quickly connects between the black lead on the 
TI Dual Cassette Cable and your recorder’s 
remote jack to establish compatible polarity. 



• Low cost — Only $4.50 


plus 75 cents each for postage & handling 
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Features: 

Equipment Protection 
Custom-Fit 

Handsome Appearance 
Antistatic Treated 
Quality Construction 


A 

Cassette Recorder Cover 

$4.95 

E Thermal Printer Cover 

$8.95 


(1 size fits up to 1072" x 616") 


F Disk Drive Cover 

$5.95 

B 

TI-99/4(A) Console Cover 

$8.95 

—Covers Not Shown in Photo:— 


C 

Speech Synthesizer Cover 

$3.95 

10" Color Monitor Cover 

$10.95 

D 

Peripheral Box Cover 

S5.95 

13" Color Monitor Cover 

$11.95 

(Specify Exp. Ram, RS232, Disk Controller) 

Epson MX-80 Cover 

$9.95 


Add $2.00 shipping/handling for the first dustcover; 50 cents for each additional cover. 


DEALER 

INQUIRIES 

INVITED 
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“1 INNOVATIVE PRODUCTS 
FOR TMS9900-8ASED 
PERSONAL COMPUTING 


P.O. Box 5537 
Eugene, Oregon 97405 
Tel. (503)485-8796 


















































ENED A DOOR T1 
EJGHT WAS LOCE 


The Tl Learning Computer. 
withTI LOGO and many other 
educational programs, is equip¬ 
ped to help open doors in any 
classroom .Including yours. 

For information on this remark - 
able system, contact : 

Texas Instruments Customer 
Relations, P.O. Box 53 | V. 

I .ubbock,Texas 79408. 1 

Texas Instruments 

I NC OM POM A 1 1 1/ 


It tffiened t door to their minds. 
The key: a Texas Instruments 
Learning Computer and Tl 
L< )GO, u programming lan¬ 
guage developed bv IT and MU 
In his inner-city, New York 
junior high classroom, teacher 
Steve Siegelbaum explains 
why it works so well. 

“When they use it. they think 
they're teaching the machine. 

In reality,it's teaching them how 


to learn. It definitely improves 
their attitude toward their other 
courses. Written and verbal 
expression impmve-thcyVe eager 
to show you, to tell you. what 
they've done." 

Another teacher, Pete Rcntof, 
adds. “What it fights is fear of 
faiiure-a mistake becomes a 
starting point.The whole learning 
process turns into a positive 
experience. It works." 
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